annotate src/font.c @ 110127:9e82fd2cdf71

merge emacs-23
author Kenichi Handa <handa@m17n.org>
date Sat, 28 Aug 2010 20:26:20 +0900
parents 26b234a2e901
children 9d210d83ed69 cda2045a5ee8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 /* font.c -- "Font" primitives.
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106755
diff changeset
2 Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106755
diff changeset
3 Copyright (C) 2006, 2007, 2008, 2009, 2010
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 National Institute of Advanced Industrial Science and Technology (AIST)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 Registration Number H13PRO009
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 This file is part of GNU Emacs.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94926
diff changeset
9 GNU Emacs is free software: you can redistribute it and/or modify
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 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: 94926
diff changeset
11 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: 94926
diff changeset
12 (at your option) any later version.
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 GNU Emacs is distributed in the hope that it will be useful,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 GNU General Public License for more details.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 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: 94926
diff changeset
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 #include <config.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 #include <stdio.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 #include <stdlib.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 #include <ctype.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105576
diff changeset
26 #include <setjmp.h>
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 #include "lisp.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 #include "buffer.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "frame.h"
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
31 #include "window.h"
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 #include "dispextern.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 #include "charset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 #include "character.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 #include "composite.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 #include "fontset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 #include "font.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
39 #ifdef HAVE_X_WINDOWS
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
40 #include "xterm.h"
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
41 #endif /* HAVE_X_WINDOWS */
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
42
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
43 #ifdef HAVE_NTGUI
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
44 #include "w32term.h"
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
45 #endif /* HAVE_NTGUI */
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
46
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
47 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
48 #include "nsterm.h"
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
49 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
50
96831
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
51 #ifdef HAVE_NS
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
52 extern Lisp_Object Qfontsize;
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
53 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
55 Lisp_Object Qopentype;
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
56
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
57 /* Important character set strings. */
95699
0afdc320716c (Qascii_0): New variable.
Kenichi Handa <handa@m17n.org>
parents: 95573
diff changeset
58 Lisp_Object Qascii_0, Qiso8859_1, Qiso10646_1, Qunicode_bmp, Qunicode_sip;
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
59
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
60 #define DEFAULT_ENCODING Qiso8859_1
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
61
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
62 /* Unicode category `Cf'. */
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
63 static Lisp_Object QCf;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
64
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 /* Special vector of zero length. This is repeatedly used by (struct
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 font_driver *)->list when a specified font is not found. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
67 static Lisp_Object null_vector;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
68
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
69 static Lisp_Object Vfont_weight_table, Vfont_slant_table, Vfont_width_table;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
70
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
71 /* Vector of Vfont_weight_table, Vfont_slant_table, and Vfont_width_table. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 static Lisp_Object font_style_table;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
74 /* Structure used for tables mapping weight, slant, and width numeric
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
75 values and their names. */
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
76
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
77 struct table_entry
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
78 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
79 int numeric;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
80 /* The first one is a valid name as a face attribute.
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
81 The second one (if any) is a typical name in XLFD field. */
105872
89183b6f6e9d * process.c (socket_options): Make it const.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105669
diff changeset
82 const char *names[5];
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
83 };
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
84
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
85 /* Table of weight numeric values and their names. This table must be
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
86 sorted by numeric values in ascending order. */
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
87
105872
89183b6f6e9d * process.c (socket_options): Make it const.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105669
diff changeset
88 static const struct table_entry weight_table[] =
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
89 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
90 { 0, { "thin" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
91 { 20, { "ultra-light", "ultralight" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
92 { 40, { "extra-light", "extralight" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
93 { 50, { "light" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
94 { 75, { "semi-light", "semilight", "demilight", "book" }},
102298
b666efc8e847 (font_style_to_value): Set value for unknown symbols to
Chong Yidong <cyd@stupidchicken.com>
parents: 102159
diff changeset
95 { 100, { "normal", "medium", "regular", "unspecified" }},
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
96 { 180, { "semi-bold", "semibold", "demibold", "demi" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
97 { 200, { "bold" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
98 { 205, { "extra-bold", "extrabold" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
99 { 210, { "ultra-bold", "ultrabold", "black" }}
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
100 };
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
101
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
102 /* Table of slant numeric values and their names. This table must be
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
103 sorted by numeric values in ascending order. */
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
104
105872
89183b6f6e9d * process.c (socket_options): Make it const.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105669
diff changeset
105 static const struct table_entry slant_table[] =
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
106 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
107 { 0, { "reverse-oblique", "ro" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
108 { 10, { "reverse-italic", "ri" }},
102298
b666efc8e847 (font_style_to_value): Set value for unknown symbols to
Chong Yidong <cyd@stupidchicken.com>
parents: 102159
diff changeset
109 { 100, { "normal", "r", "unspecified" }},
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
110 { 200, { "italic" ,"i", "ot" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
111 { 210, { "oblique", "o" }}
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
112 };
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
113
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
114 /* Table of width numeric values and their names. This table must be
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
115 sorted by numeric values in ascending order. */
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
116
105872
89183b6f6e9d * process.c (socket_options): Make it const.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105669
diff changeset
117 static const struct table_entry width_table[] =
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
118 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
119 { 50, { "ultra-condensed", "ultracondensed" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
120 { 63, { "extra-condensed", "extracondensed" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
121 { 75, { "condensed", "compressed", "narrow" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
122 { 87, { "semi-condensed", "semicondensed", "demicondensed" }},
102298
b666efc8e847 (font_style_to_value): Set value for unknown symbols to
Chong Yidong <cyd@stupidchicken.com>
parents: 102159
diff changeset
123 { 100, { "normal", "medium", "regular", "unspecified" }},
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
124 { 113, { "semi-expanded", "semiexpanded", "demiexpanded" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
125 { 125, { "expanded" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
126 { 150, { "extra-expanded", "extraexpanded" }},
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
127 { 200, { "ultra-expanded", "ultraexpanded", "wide" }}
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
128 };
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
129
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
130 extern Lisp_Object Qnormal;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132 /* Symbols representing keys of normal font properties. */
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
133 extern Lisp_Object QCtype, QCfamily, QCweight, QCslant, QCwidth;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
134 extern Lisp_Object QCheight, QCsize, QCname;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
135
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
136 Lisp_Object QCfoundry, QCadstyle, QCregistry;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 /* Symbols representing keys of font extra info. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
138 Lisp_Object QCspacing, QCdpi, QCscalable, QCotf, QClang, QCscript, QCavgwidth;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
139 Lisp_Object QCantialias, QCfont_entity, QCfc_unknown_spec;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
140 /* Symbols representing values of font spacing property. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
141 Lisp_Object Qc, Qm, Qp, Qd;
103011
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
142 /* Special ADSTYLE properties to avoid fonts used for Latin
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
143 characters; used in xfont.c and ftfont.c. */
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
144 Lisp_Object Qja, Qko;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145
106750
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
146 Lisp_Object QCuser_spec;
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
147
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
148 Lisp_Object Vfont_encoding_alist;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
149
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
150 /* Alist of font registry symbol and the corresponding charsets
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
151 information. The information is retrieved from
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
152 Vfont_encoding_alist on demand.
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
153
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
154 Eash element has the form:
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
155 (REGISTRY . (ENCODING-CHARSET-ID . REPERTORY-CHARSET-ID))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
156 or
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
157 (REGISTRY . nil)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
158
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
159 In the former form, ENCODING-CHARSET-ID is an ID of a charset that
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
160 encodes a character code to a glyph code of a font, and
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
161 REPERTORY-CHARSET-ID is an ID of a charset that tells if a
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
162 character is supported by a font.
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
163
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
164 The latter form means that the information for REGISTRY couldn't be
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
165 retrieved. */
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
166 static Lisp_Object font_charset_alist;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
167
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
168 /* List of all font drivers. Each font-backend (XXXfont.c) calls
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
169 register_font_driver in syms_of_XXXfont to register its font-driver
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170 here. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
171 static struct font_driver_list *font_driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
172
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
173
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
174
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
175 /* Creaters of font-related Lisp object. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
176
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
177 Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
178 font_make_spec ()
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
179 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
180 Lisp_Object font_spec;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
181 struct font_spec *spec
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
182 = ((struct font_spec *)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
183 allocate_pseudovector (VECSIZE (struct font_spec),
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
184 FONT_SPEC_MAX, PVEC_FONT));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
185 XSETFONT (font_spec, spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
186 return font_spec;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
187 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
188
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
189 Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
190 font_make_entity ()
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
191 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
192 Lisp_Object font_entity;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
193 struct font_entity *entity
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
194 = ((struct font_entity *)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
195 allocate_pseudovector (VECSIZE (struct font_entity),
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
196 FONT_ENTITY_MAX, PVEC_FONT));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
197 XSETFONT (font_entity, entity);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
198 return font_entity;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
199 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
200
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
201 /* Create a font-object whose structure size is SIZE. If ENTITY is
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
202 not nil, copy properties from ENTITY to the font-object. If
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
203 PIXELSIZE is positive, set the `size' property to PIXELSIZE. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
204 Lisp_Object
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
205 font_make_object (size, entity, pixelsize)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
206 int size;
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
207 Lisp_Object entity;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
208 int pixelsize;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
209 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
210 Lisp_Object font_object;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
211 struct font *font
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
212 = (struct font *) allocate_pseudovector (size, FONT_OBJECT_MAX, PVEC_FONT);
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
213 int i;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
214
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
215 XSETFONT (font_object, font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
216
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
217 if (! NILP (entity))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
218 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
219 for (i = 1; i < FONT_SPEC_MAX; i++)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
220 font->props[i] = AREF (entity, i);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
221 if (! NILP (AREF (entity, FONT_EXTRA_INDEX)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
222 font->props[FONT_EXTRA_INDEX]
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
223 = Fcopy_alist (AREF (entity, FONT_EXTRA_INDEX));
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
224 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
225 if (size > 0)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
226 font->props[FONT_SIZE_INDEX] = make_number (pixelsize);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
227 return font_object;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
228 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
229
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
230
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
231
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
232 static int font_pixel_size P_ ((FRAME_PTR f, Lisp_Object));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
233 static Lisp_Object font_open_entity P_ ((FRAME_PTR, Lisp_Object, int));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
234 static Lisp_Object font_matching_entity P_ ((FRAME_PTR, Lisp_Object *,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 Lisp_Object));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
236
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
237 /* Number of registered font drivers. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
238 static int num_font_drivers;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
239
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
240
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
241 /* Return a Lispy value of a font property value at STR and LEN bytes.
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
242 If STR is "*", it returns nil.
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
243 If FORCE_SYMBOL is zero and all characters in STR are digits, it
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
244 returns an integer. Otherwise, it returns a symbol interned from
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
245 STR. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
246
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
247 Lisp_Object
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
248 font_intern_prop (str, len, force_symbol)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
249 char *str;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
250 int len;
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
251 int force_symbol;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
252 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
253 int i;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
254 Lisp_Object tem;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
255 Lisp_Object obarray;
100759
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
256 int nbytes, nchars;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
257
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
258 if (len == 1 && *str == '*')
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
259 return Qnil;
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
260 if (!force_symbol && len >=1 && isdigit (*str))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
261 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
262 for (i = 1; i < len; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
263 if (! isdigit (str[i]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
264 break;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
265 if (i == len)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
266 return make_number (atoi (str));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
267 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
268
100759
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
269 /* The following code is copied from the function intern (in
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
270 lread.c), and modified to suite our purpose. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
271 obarray = Vobarray;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
272 if (!VECTORP (obarray) || XVECTOR (obarray)->size == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
273 obarray = check_obarray (obarray);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
274 parse_str_as_multibyte ((unsigned char *) str, len, &nchars, &nbytes);
100759
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
275 if (len == nchars || len != nbytes)
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
276 /* CONTENTS contains no multibyte sequences or contains an invalid
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
277 multibyte sequence. We'll make a unibyte string. */
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
278 tem = oblookup (obarray, str, len, len);
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
279 else
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
280 tem = oblookup (obarray, str, nchars, len);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
281 if (SYMBOLP (tem))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
282 return tem;
100759
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
283 if (len == nchars || len != nbytes)
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
284 tem = make_unibyte_string (str, len);
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
285 else
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
286 tem = make_multibyte_string (str, nchars, len);
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
287 return Fintern (tem, obarray);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
288 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
289
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
290 /* Return a pixel size of font-spec SPEC on frame F. */
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
291
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
292 static int
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
293 font_pixel_size (f, spec)
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
294 FRAME_PTR f;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
295 Lisp_Object spec;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
296 {
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
297 #ifdef HAVE_WINDOW_SYSTEM
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
298 Lisp_Object size = AREF (spec, FONT_SIZE_INDEX);
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
299 double point_size;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
300 int dpi, pixel_size;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
301 Lisp_Object val;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
302
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
303 if (INTEGERP (size))
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
304 return XINT (size);
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
305 if (NILP (size))
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
306 return 0;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
307 font_assert (FLOATP (size));
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
308 point_size = XFLOAT_DATA (size);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
309 val = AREF (spec, FONT_DPI_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
310 if (INTEGERP (val))
95483
d3cbd7d56845 (font_pixel_size): Don't take cdr of an integer.
Chong Yidong <cyd@stupidchicken.com>
parents: 95475
diff changeset
311 dpi = XINT (val);
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
312 else
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
313 dpi = f->resy;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
314 pixel_size = POINT_TO_PIXEL (point_size, dpi);
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
315 return pixel_size;
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
316 #else
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
317 return 1;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
318 #endif
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
319 }
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
320
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
321
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
322 /* Return a value of PROP's VAL (symbol or integer) to be stored in a
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
323 font vector. If VAL is not valid (i.e. not registered in
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
324 font_style_table), return -1 if NOERROR is zero, and return a
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
325 proper index if NOERROR is nonzero. In that case, register VAL in
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
326 font_style_table if VAL is a symbol, and return a closest index if
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
327 VAL is an integer. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
328
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
329 int
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
330 font_style_to_value (prop, val, noerror)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331 enum font_property_index prop;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
332 Lisp_Object val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
333 int noerror;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
335 Lisp_Object table = AREF (font_style_table, prop - FONT_WEIGHT_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
336 int len = ASIZE (table);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
337 int i, j;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
338
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
339 if (SYMBOLP (val))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340 {
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
341 unsigned char *s;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
342 Lisp_Object args[2], elt;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
343
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
344 /* At first try exact match. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
345 for (i = 0; i < len; i++)
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
346 for (j = 1; j < ASIZE (AREF (table, i)); j++)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
347 if (EQ (val, AREF (AREF (table, i), j)))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
348 return ((XINT (AREF (AREF (table, i), 0)) << 8)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
349 | (i << 4) | (j - 1));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
350 /* Try also with case-folding match. */
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
351 s = SDATA (SYMBOL_NAME (val));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
352 for (i = 0; i < len; i++)
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
353 for (j = 1; j < ASIZE (AREF (table, i)); j++)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
354 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
355 elt = AREF (AREF (table, i), j);
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
356 if (xstrcasecmp (s, SDATA (SYMBOL_NAME (elt))) == 0)
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
357 return ((XINT (AREF (AREF (table, i), 0)) << 8)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
358 | (i << 4) | (j - 1));
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
359 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
360 if (! noerror)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
361 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
362 if (len == 255)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
363 abort ();
102298
b666efc8e847 (font_style_to_value): Set value for unknown symbols to
Chong Yidong <cyd@stupidchicken.com>
parents: 102159
diff changeset
364 elt = Fmake_vector (make_number (2), make_number (100));
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
365 ASET (elt, 1, val);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
366 args[0] = table;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
367 args[1] = Fmake_vector (make_number (1), elt);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
368 ASET (font_style_table, prop - FONT_WEIGHT_INDEX, Fvconcat (2, args));
102298
b666efc8e847 (font_style_to_value): Set value for unknown symbols to
Chong Yidong <cyd@stupidchicken.com>
parents: 102159
diff changeset
369 return (100 << 8) | (i << 4);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
371 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
372 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
373 int i, last_n;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
374 int numeric = XINT (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
375
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
376 for (i = 0, last_n = -1; i < len; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
377 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
378 int n = XINT (AREF (AREF (table, i), 0));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
379
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
380 if (numeric == n)
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
381 return (n << 8) | (i << 4);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
382 if (numeric < n)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
383 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
384 if (! noerror)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
385 return -1;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
386 return ((i == 0 || n - numeric < numeric - last_n)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
387 ? (n << 8) | (i << 4): (last_n << 8 | ((i - 1) << 4)));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
388 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
389 last_n = n;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
390 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
391 if (! noerror)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
392 return -1;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
393 return ((last_n << 8) | ((i - 1) << 4));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
394 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
395 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
396
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
397 Lisp_Object
96005
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 96000
diff changeset
398 font_style_symbolic (font, prop, for_face)
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 96000
diff changeset
399 Lisp_Object font;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
400 enum font_property_index prop;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
401 int for_face;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
402 {
96005
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 96000
diff changeset
403 Lisp_Object val = AREF (font, prop);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
404 Lisp_Object table, elt;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
405 int i;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
406
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
407 if (NILP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
408 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
409 table = AREF (font_style_table, prop - FONT_WEIGHT_INDEX);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
410 i = XINT (val) & 0xFF;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
411 font_assert (((i >> 4) & 0xF) < ASIZE (table));
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
412 elt = AREF (table, ((i >> 4) & 0xF));
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
413 font_assert ((i & 0xF) + 1 < ASIZE (elt));
100336
d53183123ad7 * font.c (Ffont_spec): Move usage to end of docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 100173
diff changeset
414 return (for_face ? AREF (elt, 1) : AREF (elt, (i & 0xF) + 1));
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95890
diff changeset
415 }
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95890
diff changeset
416
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
417 extern Lisp_Object Vface_alternative_font_family_alist;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
418
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
419 extern Lisp_Object find_font_encoding P_ ((Lisp_Object));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
420
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
421
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
422 /* Return ENCODING or a cons of ENCODING and REPERTORY of the font
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
423 FONTNAME. ENCODING is a charset symbol that specifies the encoding
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
424 of the font. REPERTORY is a charset symbol or nil. */
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
425
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
426 Lisp_Object
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
427 find_font_encoding (fontname)
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
428 Lisp_Object fontname;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
429 {
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
430 Lisp_Object tail, elt;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
431
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
432 for (tail = Vfont_encoding_alist; CONSP (tail); tail = XCDR (tail))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
433 {
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
434 elt = XCAR (tail);
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
435 if (CONSP (elt)
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
436 && STRINGP (XCAR (elt))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
437 && fast_string_match_ignore_case (XCAR (elt), fontname) >= 0
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
438 && (SYMBOLP (XCDR (elt))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
439 ? CHARSETP (XCDR (elt))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
440 : CONSP (XCDR (elt)) && CHARSETP (XCAR (XCDR (elt)))))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
441 return (XCDR (elt));
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
442 }
102708
c8014e79191f (find_font_encoding): Return Qnil for unsupported encoding.
Kenichi Handa <handa@m17n.org>
parents: 102483
diff changeset
443 return Qnil;
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
444 }
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
445
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
446 /* Return encoding charset and repertory charset for REGISTRY in
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
447 ENCODING and REPERTORY correspondingly. If correct information for
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
448 REGISTRY is available, return 0. Otherwise return -1. */
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
449
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
450 int
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
451 font_registry_charsets (registry, encoding, repertory)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
452 Lisp_Object registry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
453 struct charset **encoding, **repertory;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
454 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
455 Lisp_Object val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
456 int encoding_id, repertory_id;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
457
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
458 val = Fassoc_string (registry, font_charset_alist, Qt);
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
459 if (! NILP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
460 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
461 val = XCDR (val);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
462 if (NILP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
463 return -1;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
464 encoding_id = XINT (XCAR (val));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
465 repertory_id = XINT (XCDR (val));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
466 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
467 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
468 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
469 val = find_font_encoding (SYMBOL_NAME (registry));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
470 if (SYMBOLP (val) && CHARSETP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
471 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
472 encoding_id = repertory_id = XINT (CHARSET_SYMBOL_ID (val));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
473 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
474 else if (CONSP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
475 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
476 if (! CHARSETP (XCAR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
477 goto invalid_entry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
478 encoding_id = XINT (CHARSET_SYMBOL_ID (XCAR (val)));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
479 if (NILP (XCDR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
480 repertory_id = -1;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
481 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
482 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
483 if (! CHARSETP (XCDR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
484 goto invalid_entry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
485 repertory_id = XINT (CHARSET_SYMBOL_ID (XCDR (val)));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
486 }
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
487 }
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
488 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
489 goto invalid_entry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
490 val = Fcons (make_number (encoding_id), make_number (repertory_id));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
491 font_charset_alist
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
492 = nconc2 (font_charset_alist, Fcons (Fcons (registry, val), Qnil));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
493 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
494
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
495 if (encoding)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
496 *encoding = CHARSET_FROM_ID (encoding_id);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
497 if (repertory)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
498 *repertory = repertory_id >= 0 ? CHARSET_FROM_ID (repertory_id) : NULL;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
499 return 0;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
500
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
501 invalid_entry:
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
502 font_charset_alist
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
503 = nconc2 (font_charset_alist, Fcons (Fcons (registry, Qnil), Qnil));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
504 return -1;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
505 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
506
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
507
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
508 /* Font property value validaters. See the comment of
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
509 font_property_table for the meaning of the arguments. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
510
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
511 static Lisp_Object font_prop_validate P_ ((int, Lisp_Object, Lisp_Object));
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
512 static Lisp_Object font_prop_validate_symbol P_ ((Lisp_Object, Lisp_Object));
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
513 static Lisp_Object font_prop_validate_style P_ ((Lisp_Object, Lisp_Object));
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
514 static Lisp_Object font_prop_validate_non_neg P_ ((Lisp_Object, Lisp_Object));
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
515 static Lisp_Object font_prop_validate_spacing P_ ((Lisp_Object, Lisp_Object));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
516 static int get_font_prop_index P_ ((Lisp_Object));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518 static Lisp_Object
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
519 font_prop_validate_symbol (prop, val)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
520 Lisp_Object prop, val;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
522 if (STRINGP (val))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
523 val = Fintern (val, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
524 if (! SYMBOLP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
525 val = Qerror;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
526 else if (EQ (prop, QCregistry))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
527 val = Fintern (Fdowncase (SYMBOL_NAME (val)), Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
528 return val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
529 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
530
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
531
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
532 static Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
533 font_prop_validate_style (style, val)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
534 Lisp_Object style, val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
535 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
536 enum font_property_index prop = (EQ (style, QCweight) ? FONT_WEIGHT_INDEX
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
537 : EQ (style, QCslant) ? FONT_SLANT_INDEX
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
538 : FONT_WIDTH_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
539 int n;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
540 if (INTEGERP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
541 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
542 n = XINT (val);
95194
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
543 if (((n >> 4) & 0xF)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
544 >= ASIZE (AREF (font_style_table, prop - FONT_WEIGHT_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
545 val = Qerror;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
546 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
547 {
95194
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
548 Lisp_Object elt = AREF (AREF (font_style_table, prop - FONT_WEIGHT_INDEX), (n >> 4) & 0xF);
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
549
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
550 if ((n & 0xF) + 1 >= ASIZE (elt))
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
551 val = Qerror;
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
552 else if (XINT (AREF (elt, 0)) != (n >> 8))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
553 val = Qerror;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
554 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
555 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
556 else if (SYMBOLP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
557 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
558 int n = font_style_to_value (prop, val, 0);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
559
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
560 val = n >= 0 ? make_number (n) : Qerror;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
561 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
562 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
563 val = Qerror;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
564 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
565 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
566
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
567 static Lisp_Object
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
568 font_prop_validate_non_neg (prop, val)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
569 Lisp_Object prop, val;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
570 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
571 return (NATNUMP (val) || (FLOATP (val) && XFLOAT_DATA (val) >= 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
572 ? val : Qerror);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
573 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
574
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
575 static Lisp_Object
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
576 font_prop_validate_spacing (prop, val)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
577 Lisp_Object prop, val;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
578 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
579 if (NILP (val) || (NATNUMP (val) && XINT (val) <= FONT_SPACING_CHARCELL))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
580 return val;
95504
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
581 if (SYMBOLP (val) && SBYTES (SYMBOL_NAME (val)) == 1)
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
582 {
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
583 char spacing = SDATA (SYMBOL_NAME (val))[0];
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
584
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
585 if (spacing == 'c' || spacing == 'C')
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
586 return make_number (FONT_SPACING_CHARCELL);
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
587 if (spacing == 'm' || spacing == 'M')
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
588 return make_number (FONT_SPACING_MONO);
95523
3c4256715c94 (font_prop_validate_spacing): Fix last change.
Andreas Schwab <schwab@suse.de>
parents: 95516
diff changeset
589 if (spacing == 'p' || spacing == 'P')
95504
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
590 return make_number (FONT_SPACING_PROPORTIONAL);
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
591 if (spacing == 'd' || spacing == 'D')
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
592 return make_number (FONT_SPACING_DUAL);
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
593 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
594 return Qerror;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
595 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
596
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
597 static Lisp_Object
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
598 font_prop_validate_otf (prop, val)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
599 Lisp_Object prop, val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
600 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
601 Lisp_Object tail, tmp;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
602 int i;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
603
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
604 /* VAL = (SCRIPT [ LANGSYS [ GSUB-FEATURES [ GPOS-FEATURES ]]])
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
605 GSUB-FEATURES = (FEATURE ... [ nil FEATURE ... ]) | nil
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
606 GPOS-FEATURES = (FEATURE ... [ nil FEATURE ... ]) | nil */
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
607 if (! CONSP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
608 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
609 if (! SYMBOLP (XCAR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
610 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
611 tail = XCDR (val);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
612 if (NILP (tail))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
613 return val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
614 if (! CONSP (tail) || ! SYMBOLP (XCAR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
615 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
616 for (i = 0; i < 2; i++)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
617 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
618 tail = XCDR (tail);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
619 if (NILP (tail))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
620 return val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
621 if (! CONSP (tail))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
622 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
623 for (tmp = XCAR (tail); CONSP (tmp); tmp = XCDR (tmp))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
624 if (! SYMBOLP (XCAR (tmp)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
625 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
626 if (! NILP (tmp))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
627 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
628 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
629 return val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
630 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
631
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
632 /* Structure of known font property keys and validater of the
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
633 values. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
634 struct
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
635 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
636 /* Pointer to the key symbol. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
637 Lisp_Object *key;
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
638 /* Function to validate PROP's value VAL, or NULL if any value is
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
639 ok. The value is VAL or its regularized value if VAL is valid,
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
640 and Qerror if not. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
641 Lisp_Object (*validater) P_ ((Lisp_Object prop, Lisp_Object val));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
642 } font_property_table[] =
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
643 { { &QCtype, font_prop_validate_symbol },
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
644 { &QCfoundry, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
645 { &QCfamily, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
646 { &QCadstyle, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
647 { &QCregistry, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
648 { &QCweight, font_prop_validate_style },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
649 { &QCslant, font_prop_validate_style },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
650 { &QCwidth, font_prop_validate_style },
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
651 { &QCsize, font_prop_validate_non_neg },
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
652 { &QCdpi, font_prop_validate_non_neg },
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
653 { &QCspacing, font_prop_validate_spacing },
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
654 { &QCavgwidth, font_prop_validate_non_neg },
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
655 /* The order of the above entries must match with enum
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
656 font_property_index. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
657 { &QClang, font_prop_validate_symbol },
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
658 { &QCscript, font_prop_validate_symbol },
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
659 { &QCotf, font_prop_validate_otf }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
660 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
661
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
662 /* Size (number of elements) of the above table. */
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
663 #define FONT_PROPERTY_TABLE_SIZE \
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
664 ((sizeof font_property_table) / (sizeof *font_property_table))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
665
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
666 /* Return an index number of font property KEY or -1 if KEY is not an
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
667 already known property. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
668
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
669 static int
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
670 get_font_prop_index (key)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
671 Lisp_Object key;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
672 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
673 int i;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
674
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
675 for (i = 0; i < FONT_PROPERTY_TABLE_SIZE; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
676 if (EQ (key, *font_property_table[i].key))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
677 return i;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
678 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
679 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
680
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
681 /* Validate the font property. The property key is specified by the
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
682 symbol PROP, or the index IDX (if PROP is nil). If VAL is invalid,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
683 signal an error. The value is VAL or the regularized one. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
684
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
685 static Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
686 font_prop_validate (idx, prop, val)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
687 int idx;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
688 Lisp_Object prop, val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
689 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
690 Lisp_Object validated;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
691
94964
5ffc88767cc1 (font_prop_validate): Make nil a valid value.
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
692 if (NILP (val))
5ffc88767cc1 (font_prop_validate): Make nil a valid value.
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
693 return val;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
694 if (NILP (prop))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
695 prop = *font_property_table[idx].key;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
696 else
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
697 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
698 idx = get_font_prop_index (prop);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
699 if (idx < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
700 return val;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
701 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
702 validated = (font_property_table[idx].validater) (prop, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
703 if (EQ (validated, Qerror))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
704 signal_error ("invalid font property", Fcons (prop, val));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
705 return validated;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
706 }
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
707
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
708
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
709 /* Store VAL as a value of extra font property PROP in FONT while
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
710 keeping the sorting order. Don't check the validity of VAL. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
711
90888
5f03b3602143 (font_put_extra): Expose externally.
Jason Rumney <jasonr@gnu.org>
parents: 90883
diff changeset
712 Lisp_Object
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
713 font_put_extra (font, prop, val)
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
714 Lisp_Object font, prop, val;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
715 {
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
716 Lisp_Object extra = AREF (font, FONT_EXTRA_INDEX);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
717 Lisp_Object slot = (NILP (extra) ? Qnil : assq_no_quit (prop, extra));
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
718
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
719 if (NILP (slot))
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
720 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
721 Lisp_Object prev = Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
722
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
723 while (CONSP (extra)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
724 && NILP (Fstring_lessp (prop, XCAR (XCAR (extra)))))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
725 prev = extra, extra = XCDR (extra);
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
726
106433
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
727 if (NILP (prev))
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
728 ASET (font, FONT_EXTRA_INDEX, Fcons (Fcons (prop, val), extra));
106433
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
729 else
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
730 XSETCDR (prev, Fcons (Fcons (prop, val), extra));
106433
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
731
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
732 return val;
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
733 }
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
734 XSETCDR (slot, val);
102897
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
735 if (NILP (val))
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
736 ASET (font, FONT_EXTRA_INDEX, Fdelq (slot, extra));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
737 return val;
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
738 }
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
739
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
740
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
741 /* Font name parser and unparser */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
742
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
743 static int parse_matrix P_ ((char *));
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
744 static int font_expand_wildcards P_ ((Lisp_Object *, int));
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
745 static int font_parse_name P_ ((char *, Lisp_Object));
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
746
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
747 /* An enumerator for each field of an XLFD font name. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
748 enum xlfd_field_index
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
749 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
750 XLFD_FOUNDRY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
751 XLFD_FAMILY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
752 XLFD_WEIGHT_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
753 XLFD_SLANT_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
754 XLFD_SWIDTH_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
755 XLFD_ADSTYLE_INDEX,
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
756 XLFD_PIXEL_INDEX,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
757 XLFD_POINT_INDEX,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
758 XLFD_RESX_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
759 XLFD_RESY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
760 XLFD_SPACING_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
761 XLFD_AVGWIDTH_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
762 XLFD_REGISTRY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
763 XLFD_ENCODING_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
764 XLFD_LAST_INDEX
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
765 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
766
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
767 /* An enumerator for mask bit corresponding to each XLFD field. */
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
768 enum xlfd_field_mask
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
769 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
770 XLFD_FOUNDRY_MASK = 0x0001,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
771 XLFD_FAMILY_MASK = 0x0002,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
772 XLFD_WEIGHT_MASK = 0x0004,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
773 XLFD_SLANT_MASK = 0x0008,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
774 XLFD_SWIDTH_MASK = 0x0010,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
775 XLFD_ADSTYLE_MASK = 0x0020,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
776 XLFD_PIXEL_MASK = 0x0040,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
777 XLFD_POINT_MASK = 0x0080,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
778 XLFD_RESX_MASK = 0x0100,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
779 XLFD_RESY_MASK = 0x0200,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
780 XLFD_SPACING_MASK = 0x0400,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
781 XLFD_AVGWIDTH_MASK = 0x0800,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
782 XLFD_REGISTRY_MASK = 0x1000,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
783 XLFD_ENCODING_MASK = 0x2000
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
784 };
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
785
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
786
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
787 /* Parse P pointing the pixel/point size field of the form
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
788 `[A B C D]' which specifies a transformation matrix:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
789
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
790 A B 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
791 C D 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
792 0 0 1
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
793
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
794 by which all glyphs of the font are transformed. The spec says
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
795 that scalar value N for the pixel/point size is equivalent to:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
796 A = N * resx/resy, B = C = 0, D = N.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
797
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
798 Return the scalar value N if the form is valid. Otherwise return
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
799 -1. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
800
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
801 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
802 parse_matrix (p)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
803 char *p;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
804 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
805 double matrix[4];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
806 char *end;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
807 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
808
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
809 for (i = 0, p++; i < 4 && *p && *p != ']'; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
810 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
811 if (*p == '~')
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
812 matrix[i] = - strtod (p + 1, &end);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
813 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
814 matrix[i] = strtod (p, &end);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
815 p = end;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
816 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
817 return (i == 4 ? (int) matrix[3] : -1);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
818 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
819
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
820 /* Expand a wildcard field in FIELD (the first N fields are filled) to
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
821 multiple fields to fill in all 14 XLFD fields while restring a
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
822 field position by its contents. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
823
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
824 static int
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
825 font_expand_wildcards (field, n)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
826 Lisp_Object field[XLFD_LAST_INDEX];
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
827 int n;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
828 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
829 /* Copy of FIELD. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
830 Lisp_Object tmp[XLFD_LAST_INDEX];
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
831 /* Array of information about where this element can go. Nth
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
832 element is for Nth element of FIELD. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
833 struct {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
834 /* Minimum possible field. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
835 int from;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
836 /* Maxinum possible field. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
837 int to;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
838 /* Bit mask of possible field. Nth bit corresponds to Nth field. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
839 int mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
840 } range[XLFD_LAST_INDEX];
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
841 int i, j;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
842 int range_from, range_to;
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
843 unsigned range_mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
844
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
845 #define XLFD_SYMBOL_MASK (XLFD_FOUNDRY_MASK | XLFD_FAMILY_MASK \
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
846 | XLFD_ADSTYLE_MASK | XLFD_REGISTRY_MASK)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
847 #define XLFD_NULL_MASK (XLFD_FOUNDRY_MASK | XLFD_ADSTYLE_MASK)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
848 #define XLFD_LARGENUM_MASK (XLFD_POINT_MASK | XLFD_RESX_MASK | XLFD_RESY_MASK \
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
849 | XLFD_AVGWIDTH_MASK)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
850 #define XLFD_REGENC_MASK (XLFD_REGISTRY_MASK | XLFD_ENCODING_MASK)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
851
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
852 /* Initialize RANGE_MASK for FIELD[0] which can be 0th to (14 - N)th
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
853 field. The value is shifted to left one bit by one in the
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
854 following loop. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
855 for (i = 0, range_mask = 0; i <= 14 - n; i++)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
856 range_mask = (range_mask << 1) | 1;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
857
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
858 /* The triplet RANGE_FROM, RANGE_TO, and RANGE_MASK is a
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
859 position-based retriction for FIELD[I]. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
860 for (i = 0, range_from = 0, range_to = 14 - n; i < n;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
861 i++, range_from++, range_to++, range_mask <<= 1)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
862 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
863 Lisp_Object val = field[i];
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
864
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
865 tmp[i] = val;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
866 if (NILP (val))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
867 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
868 /* Wildcard. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
869 range[i].from = range_from;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
870 range[i].to = range_to;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
871 range[i].mask = range_mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
872 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
873 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
874 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
875 /* The triplet FROM, TO, and MASK is a value-based
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
876 retriction for FIELD[I]. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
877 int from, to;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
878 unsigned mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
879
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
880 if (INTEGERP (val))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
881 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
882 int numeric = XINT (val);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
883
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
884 if (i + 1 == n)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
885 from = to = XLFD_ENCODING_INDEX,
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
886 mask = XLFD_ENCODING_MASK;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
887 else if (numeric == 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
888 from = XLFD_PIXEL_INDEX, to = XLFD_AVGWIDTH_INDEX,
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
889 mask = XLFD_PIXEL_MASK | XLFD_LARGENUM_MASK;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
890 else if (numeric <= 48)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
891 from = to = XLFD_PIXEL_INDEX,
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
892 mask = XLFD_PIXEL_MASK;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
893 else
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
894 from = XLFD_POINT_INDEX, to = XLFD_AVGWIDTH_INDEX,
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
895 mask = XLFD_LARGENUM_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
896 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
897 else if (SBYTES (SYMBOL_NAME (val)) == 0)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
898 from = XLFD_FOUNDRY_INDEX, to = XLFD_ADSTYLE_INDEX,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
899 mask = XLFD_NULL_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
900 else if (i == 0)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
901 from = to = XLFD_FOUNDRY_INDEX, mask = XLFD_FOUNDRY_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
902 else if (i + 1 == n)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
903 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
904 Lisp_Object name = SYMBOL_NAME (val);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
905
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
906 if (SDATA (name)[SBYTES (name) - 1] == '*')
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
907 from = XLFD_REGISTRY_INDEX, to = XLFD_ENCODING_INDEX,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
908 mask = XLFD_REGENC_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
909 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
910 from = to = XLFD_ENCODING_INDEX,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
911 mask = XLFD_ENCODING_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
912 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
913 else if (range_from <= XLFD_WEIGHT_INDEX
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
914 && range_to >= XLFD_WEIGHT_INDEX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
915 && FONT_WEIGHT_NAME_NUMERIC (val) >= 0)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
916 from = to = XLFD_WEIGHT_INDEX, mask = XLFD_WEIGHT_MASK;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
917 else if (range_from <= XLFD_SLANT_INDEX
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
918 && range_to >= XLFD_SLANT_INDEX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
919 && FONT_SLANT_NAME_NUMERIC (val) >= 0)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
920 from = to = XLFD_SLANT_INDEX, mask = XLFD_SLANT_MASK;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
921 else if (range_from <= XLFD_SWIDTH_INDEX
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
922 && range_to >= XLFD_SWIDTH_INDEX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
923 && FONT_WIDTH_NAME_NUMERIC (val) >= 0)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
924 from = to = XLFD_SWIDTH_INDEX, mask = XLFD_SWIDTH_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
925 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
926 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
927 if (EQ (val, Qc) || EQ (val, Qm) || EQ (val, Qp) || EQ (val, Qd))
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
928 from = to = XLFD_SPACING_INDEX, mask = XLFD_SPACING_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
929 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
930 from = XLFD_FOUNDRY_INDEX, to = XLFD_ENCODING_INDEX,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
931 mask = XLFD_SYMBOL_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
932 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
933
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
934 /* Merge position-based and value-based restrictions. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
935 mask &= range_mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
936 while (from < range_from)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
937 mask &= ~(1 << from++);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
938 while (from < 14 && ! (mask & (1 << from)))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
939 from++;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
940 while (to > range_to)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
941 mask &= ~(1 << to--);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
942 while (to >= 0 && ! (mask & (1 << to)))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
943 to--;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
944 if (from > to)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
945 return -1;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
946 range[i].from = from;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
947 range[i].to = to;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
948 range[i].mask = mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
949
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
950 if (from > range_from || to < range_to)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
951 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
952 /* The range is narrowed by value-based restrictions.
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
953 Reflect it to the other fields. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
954
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
955 /* Following fields should be after FROM. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
956 range_from = from;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
957 /* Preceding fields should be before TO. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
958 for (j = i - 1, from--, to--; j >= 0; j--, from--, to--)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
959 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
960 /* Check FROM for non-wildcard field. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
961 if (! NILP (tmp[j]) && range[j].from < from)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
962 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
963 while (range[j].from < from)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
964 range[j].mask &= ~(1 << range[j].from++);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
965 while (from < 14 && ! (range[j].mask & (1 << from)))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
966 from++;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
967 range[j].from = from;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
968 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
969 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
970 from = range[j].from;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
971 if (range[j].to > to)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
972 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
973 while (range[j].to > to)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
974 range[j].mask &= ~(1 << range[j].to--);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
975 while (to >= 0 && ! (range[j].mask & (1 << to)))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
976 to--;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
977 range[j].to = to;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
978 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
979 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
980 to = range[j].to;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
981 if (from > to)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
982 return -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
983 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
984 }
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
985 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
986 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
987
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
988 /* Decide all fileds from restrictions in RANGE. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
989 for (i = j = 0; i < n ; i++)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
990 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
991 if (j < range[i].from)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
992 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
993 if (i == 0 || ! NILP (tmp[i - 1]))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
994 /* None of TMP[X] corresponds to Jth field. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
995 return -1;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
996 for (; j < range[i].from; j++)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
997 field[j] = Qnil;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
998 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
999 field[j++] = tmp[i];
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1000 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1001 if (! NILP (tmp[n - 1]) && j < XLFD_REGISTRY_INDEX)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1002 return -1;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1003 for (; j < XLFD_LAST_INDEX; j++)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1004 field[j] = Qnil;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1005 if (INTEGERP (field[XLFD_ENCODING_INDEX]))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1006 field[XLFD_ENCODING_INDEX]
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1007 = Fintern (Fnumber_to_string (field[XLFD_ENCODING_INDEX]), Qnil);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1008 return 0;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1009 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1010
92113
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1011
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1012 #ifdef ENABLE_CHECKING
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1013 /* Match a 14-field XLFD pattern against a full XLFD font name. */
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1014 static int
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1015 font_match_xlfd (char *pattern, char *name)
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1016 {
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1017 while (*pattern && *name)
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1018 {
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1019 if (*pattern == *name)
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1020 pattern++;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1021 else if (*pattern == '*')
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1022 if (*name == pattern[1])
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1023 pattern += 2;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1024 else
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1025 ;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1026 else
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1027 return 0;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1028 name++;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1029 }
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1030 return 1;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1031 }
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1032
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1033 /* Make sure the font object matches the XLFD font name. */
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1034 static int
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1035 font_check_xlfd_parse (Lisp_Object font, char *name)
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1036 {
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1037 char name_check[256];
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1038 font_unparse_xlfd (font, 0, name_check, 255);
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1039 return font_match_xlfd (name_check, name);
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1040 }
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1041
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1042 #endif
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1043
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1044
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1045 /* Parse NAME (null terminated) as XLFD and store information in FONT
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1046 (font-spec or font-entity). Size property of FONT is set as
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1047 follows:
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1048 specified XLFD fields FONT property
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1049 --------------------- -------------
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1050 PIXEL_SIZE PIXEL_SIZE (Lisp integer)
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1051 POINT_SIZE and RESY calculated pixel size (Lisp integer)
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1052 POINT_SIZE POINT_SIZE/10 (Lisp float)
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1053
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1054 If NAME is successfully parsed, return 0. Otherwise return -1.
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1055
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1056 FONT is usually a font-spec, but when this function is called from
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1057 X font backend driver, it is a font-entity. In that case, NAME is
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1058 a fully specified XLFD. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1059
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1060 int
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1061 font_parse_xlfd (name, font)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1062 char *name;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1063 Lisp_Object font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1064 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1065 int len = strlen (name);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1066 int i, j, n;
90695
a1cd7344d6a2 (font_parse_xlfd): Fix the array size of `f'.
Kenichi Handa <handa@m17n.org>
parents: 90677
diff changeset
1067 char *f[XLFD_LAST_INDEX + 1];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1068 Lisp_Object val;
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1069 char *p;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1070
101422
9e1fcd81389c (font_parse_xlfd): Handle patterns of length < 2.
Chong Yidong <cyd@stupidchicken.com>
parents: 101293
diff changeset
1071 if (len > 255 || !len)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1072 /* Maximum XLFD name length is 255. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1073 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1074 /* Accept "*-.." as a fully specified XLFD. */
101422
9e1fcd81389c (font_parse_xlfd): Handle patterns of length < 2.
Chong Yidong <cyd@stupidchicken.com>
parents: 101293
diff changeset
1075 if (name[0] == '*' && (len == 1 || name[1] == '-'))
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1076 i = 1, f[XLFD_FOUNDRY_INDEX] = name;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1077 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1078 i = 0;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1079 for (p = name + i; *p; p++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1080 if (*p == '-')
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1081 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1082 f[i++] = p + 1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1083 if (i == XLFD_LAST_INDEX)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1084 break;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1085 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1086 f[i] = name + len;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1087
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1088 #define INTERN_FIELD(N) font_intern_prop (f[N], f[(N) + 1] - 1 - f[N], 0)
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1089 #define INTERN_FIELD_SYM(N) font_intern_prop (f[N], f[(N) + 1] - 1 - f[N], 1)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1090
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1091 if (i == XLFD_LAST_INDEX)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1092 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1093 /* Fully specified XLFD. */
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1094 int pixel_size;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1095
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1096 ASET (font, FONT_FOUNDRY_INDEX, INTERN_FIELD_SYM (XLFD_FOUNDRY_INDEX));
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1097 ASET (font, FONT_FAMILY_INDEX, INTERN_FIELD_SYM (XLFD_FAMILY_INDEX));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1098 for (i = XLFD_WEIGHT_INDEX, j = FONT_WEIGHT_INDEX;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1099 i <= XLFD_SWIDTH_INDEX; i++, j++)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1100 {
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1101 val = INTERN_FIELD_SYM (i);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1102 if (! NILP (val))
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1103 {
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1104 if ((n = font_style_to_value (j, INTERN_FIELD_SYM (i), 0)) < 0)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1105 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1106 ASET (font, j, make_number (n));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1107 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1108 }
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1109 ASET (font, FONT_ADSTYLE_INDEX, INTERN_FIELD_SYM (XLFD_ADSTYLE_INDEX));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1110 if (strcmp (f[XLFD_REGISTRY_INDEX], "*-*") == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1111 ASET (font, FONT_REGISTRY_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1112 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1113 ASET (font, FONT_REGISTRY_INDEX,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1114 font_intern_prop (f[XLFD_REGISTRY_INDEX],
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1115 f[XLFD_LAST_INDEX] - f[XLFD_REGISTRY_INDEX],
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1116 1));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1117 p = f[XLFD_PIXEL_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1118 if (*p == '[' && (pixel_size = parse_matrix (p)) >= 0)
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
1119 ASET (font, FONT_SIZE_INDEX, make_number (pixel_size));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1120 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1121 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1122 val = INTERN_FIELD (XLFD_PIXEL_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1123 if (INTEGERP (val))
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1124 ASET (font, FONT_SIZE_INDEX, val);
107061
fa65fbe23fdb font.c (font_parse_xlfd): If FONT is a font-entity and pixel size in NAME is invalid, return -1.
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
1125 else if (FONT_ENTITY_P (font))
fa65fbe23fdb font.c (font_parse_xlfd): If FONT is a font-entity and pixel size in NAME is invalid, return -1.
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
1126 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1127 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1128 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1129 double point_size = -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1130
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1131 font_assert (FONT_SPEC_P (font));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1132 p = f[XLFD_POINT_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1133 if (*p == '[')
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1134 point_size = parse_matrix (p);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1135 else if (isdigit (*p))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1136 point_size = atoi (p), point_size /= 10;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1137 if (point_size >= 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1138 ASET (font, FONT_SIZE_INDEX, make_float (point_size));
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1139 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1140 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1141
104091
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1142 val = INTERN_FIELD (XLFD_RESY_INDEX);
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1143 if (! NILP (val) && ! INTEGERP (val))
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1144 return -1;
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1145 ASET (font, FONT_DPI_INDEX, val);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1146 val = INTERN_FIELD (XLFD_SPACING_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1147 if (! NILP (val))
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1148 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1149 val = font_prop_validate_spacing (QCspacing, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1150 if (! INTEGERP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1151 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1152 ASET (font, FONT_SPACING_INDEX, val);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1153 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1154 p = f[XLFD_AVGWIDTH_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1155 if (*p == '~')
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1156 p++;
104091
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1157 val = font_intern_prop (p, f[XLFD_REGISTRY_INDEX] - 1 - p, 0);
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1158 if (! NILP (val) && ! INTEGERP (val))
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1159 return -1;
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1160 ASET (font, FONT_AVGWIDTH_INDEX, val);
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1161 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1162 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1163 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1164 int wild_card_found = 0;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1165 Lisp_Object prop[XLFD_LAST_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1166
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1167 if (FONT_ENTITY_P (font))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1168 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1169 for (j = 0; j < i; j++)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1170 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1171 if (*f[j] == '*')
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1172 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1173 if (f[j][1] && f[j][1] != '-')
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1174 return -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1175 prop[j] = Qnil;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1176 wild_card_found = 1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1177 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1178 else if (j + 1 < i)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1179 prop[j] = INTERN_FIELD (j);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1180 else
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1181 prop[j] = font_intern_prop (f[j], f[i] - f[j], 0);
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1182 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1183 if (! wild_card_found)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1184 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1185 if (font_expand_wildcards (prop, i) < 0)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1186 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1187
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1188 ASET (font, FONT_FOUNDRY_INDEX, prop[XLFD_FOUNDRY_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1189 ASET (font, FONT_FAMILY_INDEX, prop[XLFD_FAMILY_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1190 for (i = XLFD_WEIGHT_INDEX, j = FONT_WEIGHT_INDEX;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1191 i <= XLFD_SWIDTH_INDEX; i++, j++)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1192 if (! NILP (prop[i]))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1193 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1194 if ((n = font_style_to_value (j, prop[i], 1)) < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1195 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1196 ASET (font, j, make_number (n));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1197 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1198 ASET (font, FONT_ADSTYLE_INDEX, prop[XLFD_ADSTYLE_INDEX]);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1199 val = prop[XLFD_REGISTRY_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1200 if (NILP (val))
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1201 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1202 val = prop[XLFD_ENCODING_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1203 if (! NILP (val))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1204 val = concat2 (build_string ("*-"), SYMBOL_NAME (val));
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1205 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1206 else if (NILP (prop[XLFD_ENCODING_INDEX]))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1207 val = concat2 (SYMBOL_NAME (val), build_string ("-*"));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1208 else
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1209 val = concat3 (SYMBOL_NAME (val), build_string ("-"),
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1210 SYMBOL_NAME (prop[XLFD_ENCODING_INDEX]));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1211 if (! NILP (val))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1212 ASET (font, FONT_REGISTRY_INDEX, Fintern (val, Qnil));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1213
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1214 if (INTEGERP (prop[XLFD_PIXEL_INDEX]))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1215 ASET (font, FONT_SIZE_INDEX, prop[XLFD_PIXEL_INDEX]);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1216 else if (INTEGERP (prop[XLFD_POINT_INDEX]))
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1217 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1218 double point_size = XINT (prop[XLFD_POINT_INDEX]);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1219
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1220 ASET (font, FONT_SIZE_INDEX, make_float (point_size / 10));
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1221 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1222
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1223 if (INTEGERP (prop[XLFD_RESX_INDEX]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1224 ASET (font, FONT_DPI_INDEX, prop[XLFD_RESY_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1225 if (! NILP (prop[XLFD_SPACING_INDEX]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1226 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1227 val = font_prop_validate_spacing (QCspacing,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1228 prop[XLFD_SPACING_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1229 if (! INTEGERP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1230 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1231 ASET (font, FONT_SPACING_INDEX, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1232 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1233 if (INTEGERP (prop[XLFD_AVGWIDTH_INDEX]))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1234 ASET (font, FONT_AVGWIDTH_INDEX, prop[XLFD_AVGWIDTH_INDEX]);
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1235 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1236
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1237 return 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1238 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1239
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1240 /* Store XLFD name of FONT (font-spec or font-entity) in NAME (NBYTES
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1241 length), and return the name length. If FONT_SIZE_INDEX of FONT is
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1242 0, use PIXEL_SIZE instead. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1243
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1244 int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1245 font_unparse_xlfd (font, pixel_size, name, nbytes)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1246 Lisp_Object font;
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1247 int pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1248 char *name;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1249 int nbytes;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1250 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1251 char *f[XLFD_REGISTRY_INDEX + 1];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1252 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1253 int i, j, len = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1254
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1255 font_assert (FONTP (font));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1256
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1257 for (i = FONT_FOUNDRY_INDEX, j = XLFD_FOUNDRY_INDEX; i <= FONT_REGISTRY_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1258 i++, j++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1259 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1260 if (i == FONT_ADSTYLE_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1261 j = XLFD_ADSTYLE_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1262 else if (i == FONT_REGISTRY_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1263 j = XLFD_REGISTRY_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1264 val = AREF (font, i);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1265 if (NILP (val))
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1266 {
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1267 if (j == XLFD_REGISTRY_INDEX)
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1268 f[j] = "*-*", len += 4;
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1269 else
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1270 f[j] = "*", len += 2;
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1271 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1272 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1273 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1274 if (SYMBOLP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1275 val = SYMBOL_NAME (val);
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1276 if (j == XLFD_REGISTRY_INDEX
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1277 && ! strchr ((char *) SDATA (val), '-'))
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1278 {
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1279 /* Change "jisx0208*" and "jisx0208" to "jisx0208*-*". */
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1280 if (SDATA (val)[SBYTES (val) - 1] == '*')
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1281 {
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1282 f[j] = alloca (SBYTES (val) + 3);
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1283 sprintf (f[j], "%s-*", SDATA (val));
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1284 len += SBYTES (val) + 3;
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1285 }
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1286 else
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1287 {
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1288 f[j] = alloca (SBYTES (val) + 4);
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1289 sprintf (f[j], "%s*-*", SDATA (val));
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1290 len += SBYTES (val) + 4;
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1291 }
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1292 }
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1293 else
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1294 f[j] = (char *) SDATA (val), len += SBYTES (val) + 1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1295 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1296 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1297
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1298 for (i = FONT_WEIGHT_INDEX, j = XLFD_WEIGHT_INDEX; i <= FONT_WIDTH_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1299 i++, j++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1300 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1301 val = font_style_symbolic (font, i, 0);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1302 if (NILP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1303 f[j] = "*", len += 2;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1304 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1305 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1306 val = SYMBOL_NAME (val);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1307 f[j] = (char *) SDATA (val), len += SBYTES (val) + 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1308 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1309 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1310
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1311 val = AREF (font, FONT_SIZE_INDEX);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1312 font_assert (NUMBERP (val) || NILP (val));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1313 if (INTEGERP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1314 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1315 i = XINT (val);
91943
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1316 if (i <= 0)
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1317 i = pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1318 if (i > 0)
91943
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1319 {
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1320 f[XLFD_PIXEL_INDEX] = alloca (22);
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1321 len += sprintf (f[XLFD_PIXEL_INDEX], "%d-*", i) + 1;
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1322 }
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1323 else
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1324 f[XLFD_PIXEL_INDEX] = "*-*", len += 4;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1325 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1326 else if (FLOATP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1327 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1328 i = XFLOAT_DATA (val) * 10;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1329 f[XLFD_PIXEL_INDEX] = alloca (12);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1330 len += sprintf (f[XLFD_PIXEL_INDEX], "*-%d", i) + 1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1331 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1332 else
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1333 f[XLFD_PIXEL_INDEX] = "*-*", len += 4;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1334
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1335 if (INTEGERP (AREF (font, FONT_DPI_INDEX)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1336 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1337 i = XINT (AREF (font, FONT_DPI_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1338 f[XLFD_RESX_INDEX] = alloca (22);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1339 len += sprintf (f[XLFD_RESX_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1340 "%d-%d", i, i) + 1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1341 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1342 else
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1343 f[XLFD_RESX_INDEX] = "*-*", len += 4;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1344 if (INTEGERP (AREF (font, FONT_SPACING_INDEX)))
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1345 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1346 int spacing = XINT (AREF (font, FONT_SPACING_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1347
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1348 f[XLFD_SPACING_INDEX] = (spacing <= FONT_SPACING_PROPORTIONAL ? "p"
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1349 : spacing <= FONT_SPACING_DUAL ? "d"
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1350 : spacing <= FONT_SPACING_MONO ? "m"
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1351 : "c");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1352 len += 2;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1353 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1354 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1355 f[XLFD_SPACING_INDEX] = "*", len += 2;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1356 if (INTEGERP (AREF (font, FONT_AVGWIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1357 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1358 f[XLFD_AVGWIDTH_INDEX] = alloca (11);
105576
9e1a1361da63 (font_unparse_xlfd, font_unparse_fcname): Use long format in printf, and cast argument.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 105155
diff changeset
1359 len += sprintf (f[XLFD_AVGWIDTH_INDEX], "%ld",
9e1a1361da63 (font_unparse_xlfd, font_unparse_fcname): Use long format in printf, and cast argument.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 105155
diff changeset
1360 (long) XINT (AREF (font, FONT_AVGWIDTH_INDEX))) + 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1361 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1362 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1363 f[XLFD_AVGWIDTH_INDEX] = "*", len += 2;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1364 len++; /* for terminating '\0'. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1365 if (len >= nbytes)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1366 return -1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1367 return sprintf (name, "-%s-%s-%s-%s-%s-%s-%s-%s-%s-%s-%s",
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1368 f[XLFD_FOUNDRY_INDEX], f[XLFD_FAMILY_INDEX],
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1369 f[XLFD_WEIGHT_INDEX], f[XLFD_SLANT_INDEX],
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1370 f[XLFD_SWIDTH_INDEX], f[XLFD_ADSTYLE_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1371 f[XLFD_PIXEL_INDEX], f[XLFD_RESX_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1372 f[XLFD_SPACING_INDEX], f[XLFD_AVGWIDTH_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1373 f[XLFD_REGISTRY_INDEX]);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1374 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1375
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1376 /* Parse NAME (null terminated) and store information in FONT
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1377 (font-spec or font-entity). NAME is supplied in either the
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1378 Fontconfig or GTK font name format. If NAME is successfully
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1379 parsed, return 0. Otherwise return -1.
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1380
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1381 The fontconfig format is
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1382
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1383 FAMILY[-SIZE][:PROP1[=VAL1][:PROP2[=VAL2]...]]
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1384
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1385 The GTK format is
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1386
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1387 FAMILY [PROPS...] [SIZE]
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1388
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1389 This function tries to guess which format it is. */
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1390
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1391 int
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1392 font_parse_fcname (name, font)
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1393 char *name;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1394 Lisp_Object font;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1395 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1396 char *p, *q;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1397 char *size_beg = NULL, *size_end = NULL;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1398 char *props_beg = NULL, *family_end = NULL;
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1399 int len = strlen (name);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1400
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1401 if (len == 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1402 return -1;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1403
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1404 for (p = name; *p; p++)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1405 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1406 if (*p == '\\' && p[1])
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1407 p++;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1408 else if (*p == ':')
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1409 {
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1410 props_beg = family_end = p;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1411 break;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1412 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1413 else if (*p == '-')
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1414 {
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1415 int decimal = 0, size_found = 1;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1416 for (q = p + 1; *q && *q != ':'; q++)
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1417 if (! isdigit(*q))
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1418 {
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1419 if (*q != '.' || decimal)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1420 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1421 size_found = 0;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1422 break;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1423 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1424 decimal = 1;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1425 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1426 if (size_found)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1427 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1428 family_end = p;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1429 size_beg = p + 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1430 size_end = q;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1431 break;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1432 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1433 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1434 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1435
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1436 if (family_end)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1437 {
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1438 Lisp_Object extra_props = Qnil;
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1439
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1440 /* A fontconfig name with size and/or property data. */
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1441 if (family_end > name)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1442 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1443 Lisp_Object family;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1444 family = font_intern_prop (name, family_end - name, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1445 ASET (font, FONT_FAMILY_INDEX, family);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1446 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1447 if (size_beg)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1448 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1449 double point_size = strtod (size_beg, &size_end);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1450 ASET (font, FONT_SIZE_INDEX, make_float (point_size));
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1451 if (*size_end == ':' && size_end[1])
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1452 props_beg = size_end;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1453 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1454 if (props_beg)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1455 {
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1456 /* Now parse ":KEY=VAL" patterns. */
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1457 Lisp_Object val;
96016
c1105df0f9c8 (font_parse_fcname): Fix handling of unknown-spec string.
Chong Yidong <cyd@stupidchicken.com>
parents: 96014
diff changeset
1458
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1459 for (p = props_beg; *p; p = q)
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1460 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1461 for (q = p + 1; *q && *q != '=' && *q != ':'; q++);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1462 if (*q != '=')
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1463 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1464 /* Must be an enumerated value. */
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1465 int word_len;
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1466 p = p + 1;
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1467 word_len = q - p;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1468 val = font_intern_prop (p, q - p, 1);
95984
cf2b26adbb9b Tweak last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 95983
diff changeset
1469
cf2b26adbb9b Tweak last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 95983
diff changeset
1470 #define PROP_MATCH(STR,N) ((word_len == N) && memcmp (p, STR, N) == 0)
cf2b26adbb9b Tweak last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 95983
diff changeset
1471
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1472 if (PROP_MATCH ("light", 5)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1473 || PROP_MATCH ("medium", 6)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1474 || PROP_MATCH ("demibold", 8)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1475 || PROP_MATCH ("bold", 4)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1476 || PROP_MATCH ("black", 5))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1477 FONT_SET_STYLE (font, FONT_WEIGHT_INDEX, val);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1478 else if (PROP_MATCH ("roman", 5)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1479 || PROP_MATCH ("italic", 6)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1480 || PROP_MATCH ("oblique", 7))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1481 FONT_SET_STYLE (font, FONT_SLANT_INDEX, val);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1482 else if (PROP_MATCH ("charcell", 8))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1483 ASET (font, FONT_SPACING_INDEX,
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1484 make_number (FONT_SPACING_CHARCELL));
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1485 else if (PROP_MATCH ("mono", 4))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1486 ASET (font, FONT_SPACING_INDEX,
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1487 make_number (FONT_SPACING_MONO));
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1488 else if (PROP_MATCH ("proportional", 12))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1489 ASET (font, FONT_SPACING_INDEX,
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1490 make_number (FONT_SPACING_PROPORTIONAL));
95984
cf2b26adbb9b Tweak last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 95983
diff changeset
1491 #undef PROP_MATCH
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1492 }
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1493 else
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1494 {
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1495 /* KEY=VAL pairs */
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1496 Lisp_Object key;
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1497 int prop;
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1498
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1499 if (q - p == 10 && memcmp (p + 1, "pixelsize", 9) == 0)
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1500 prop = FONT_SIZE_INDEX;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1501 else
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1502 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1503 key = font_intern_prop (p, q - p, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1504 prop = get_font_prop_index (key);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1505 }
96016
c1105df0f9c8 (font_parse_fcname): Fix handling of unknown-spec string.
Chong Yidong <cyd@stupidchicken.com>
parents: 96014
diff changeset
1506
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1507 p = q + 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1508 for (q = p; *q && *q != ':'; q++);
95983
104a55eb192a (font_parse_fcname): Correctly parse KEY=VAL values.
Chong Yidong <cyd@stupidchicken.com>
parents: 95972
diff changeset
1509 val = font_intern_prop (p, q - p, 0);
96016
c1105df0f9c8 (font_parse_fcname): Fix handling of unknown-spec string.
Chong Yidong <cyd@stupidchicken.com>
parents: 96014
diff changeset
1510
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1511 if (prop >= FONT_FOUNDRY_INDEX
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1512 && prop < FONT_EXTRA_INDEX)
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1513 ASET (font, prop, font_prop_validate (prop, Qnil, val));
106433
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
1514 else
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1515 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1516 extra_props = nconc2 (extra_props,
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1517 Fcons (Fcons (key, val), Qnil));
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1518 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1519 }
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1520 p = q;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1521 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1522 }
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1523
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1524 if (! NILP (extra_props))
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1525 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1526 struct font_driver_list *driver_list = font_driver_list;
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1527 for ( ; driver_list; driver_list = driver_list->next)
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1528 if (driver_list->driver->filter_properties)
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1529 (*driver_list->driver->filter_properties) (font, extra_props);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1530 }
106433
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
1531
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1532 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1533 else
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1534 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1535 /* Either a fontconfig-style name with no size and property
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1536 data, or a GTK-style name. */
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1537 Lisp_Object prop;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1538 int word_len, prop_found = 0;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1539
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1540 for (p = name; *p; p = *q ? q + 1 : q)
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1541 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1542 if (isdigit (*p))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1543 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1544 int size_found = 1;
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
1545
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1546 for (q = p + 1; *q && *q != ' '; q++)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1547 if (! isdigit (*q))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1548 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1549 size_found = 0;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1550 break;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1551 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1552 if (size_found)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1553 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1554 double point_size = strtod (p, &q);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1555 ASET (font, FONT_SIZE_INDEX, make_float (point_size));
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1556 continue;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1557 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1558 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1559
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1560 for (q = p + 1; *q && *q != ' '; q++)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1561 if (*q == '\\' && q[1])
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1562 q++;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1563 word_len = q - p;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1564
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1565 #define PROP_MATCH(STR,N) ((word_len == N) && memcmp (p, STR, N) == 0)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1566
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1567 if (PROP_MATCH ("Ultra-Light", 11))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1568 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1569 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1570 prop = font_intern_prop ("ultra-light", 11, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1571 FONT_SET_STYLE (font, FONT_WEIGHT_INDEX, prop);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1572 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1573 else if (PROP_MATCH ("Light", 5))
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1574 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1575 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1576 prop = font_intern_prop ("light", 5, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1577 FONT_SET_STYLE (font, FONT_WEIGHT_INDEX, prop);
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
1578 }
107241
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1579 else if (PROP_MATCH ("Book", 4))
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1580 {
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1581 prop_found = 1;
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1582 prop = font_intern_prop ("book", 4, 1);
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1583 FONT_SET_STYLE (font, FONT_WEIGHT_INDEX, prop);
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1584 }
107242
26b234a2e901 Addendum to last patch: add "Medium" GTK font name keyword.
Chong Yidong <cyd@stupidchicken.com>
parents: 107241
diff changeset
1585 else if (PROP_MATCH ("Medium", 6))
26b234a2e901 Addendum to last patch: add "Medium" GTK font name keyword.
Chong Yidong <cyd@stupidchicken.com>
parents: 107241
diff changeset
1586 {
26b234a2e901 Addendum to last patch: add "Medium" GTK font name keyword.
Chong Yidong <cyd@stupidchicken.com>
parents: 107241
diff changeset
1587 prop_found = 1;
26b234a2e901 Addendum to last patch: add "Medium" GTK font name keyword.
Chong Yidong <cyd@stupidchicken.com>
parents: 107241
diff changeset
1588 prop = font_intern_prop ("medium", 6, 1);
26b234a2e901 Addendum to last patch: add "Medium" GTK font name keyword.
Chong Yidong <cyd@stupidchicken.com>
parents: 107241
diff changeset
1589 FONT_SET_STYLE (font, FONT_WEIGHT_INDEX, prop);
26b234a2e901 Addendum to last patch: add "Medium" GTK font name keyword.
Chong Yidong <cyd@stupidchicken.com>
parents: 107241
diff changeset
1590 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1591 else if (PROP_MATCH ("Semi-Bold", 9))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1592 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1593 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1594 prop = font_intern_prop ("semi-bold", 9, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1595 FONT_SET_STYLE (font, FONT_WEIGHT_INDEX, prop);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1596 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1597 else if (PROP_MATCH ("Bold", 4))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1598 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1599 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1600 prop = font_intern_prop ("bold", 4, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1601 FONT_SET_STYLE (font, FONT_WEIGHT_INDEX, prop);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1602 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1603 else if (PROP_MATCH ("Italic", 6))
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1604 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1605 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1606 prop = font_intern_prop ("italic", 4, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1607 FONT_SET_STYLE (font, FONT_SLANT_INDEX, prop);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1608 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1609 else if (PROP_MATCH ("Oblique", 7))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1610 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1611 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1612 prop = font_intern_prop ("oblique", 7, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1613 FONT_SET_STYLE (font, FONT_SLANT_INDEX, prop);
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1614 }
107241
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1615 else if (PROP_MATCH ("Semi-Condensed", 14))
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1616 {
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1617 prop_found = 1;
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1618 prop = font_intern_prop ("semi-condensed", 14, 1);
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1619 FONT_SET_STYLE (font, FONT_WIDTH_INDEX, prop);
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1620 }
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1621 else if (PROP_MATCH ("Condensed", 9))
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1622 {
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1623 prop_found = 1;
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1624 prop = font_intern_prop ("condensed", 9, 1);
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1625 FONT_SET_STYLE (font, FONT_WIDTH_INDEX, prop);
c7ed9615fb56 Recognize more keywords in GTK font names (Bug#5646).
Chong Yidong <cyd@stupidchicken.com>
parents: 107061
diff changeset
1626 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1627 else {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1628 if (prop_found)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1629 return -1; /* Unknown property in GTK-style font name. */
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1630 family_end = q;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1631 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1632 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1633 #undef PROP_MATCH
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1634
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1635 if (family_end)
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1636 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1637 Lisp_Object family;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1638 family = font_intern_prop (name, family_end - name, 1);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1639 ASET (font, FONT_FAMILY_INDEX, family);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1640 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1641 }
95886
c8bc52f94b6d (syms_of_font) <font-weight-table, font-slant-table, font-width-table>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95875
diff changeset
1642
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1643 return 0;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1644 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1645
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1646 /* Store fontconfig's font name of FONT (font-spec or font-entity) in
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1647 NAME (NBYTES length), and return the name length. If
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1648 FONT_SIZE_INDEX of FONT is 0, use PIXEL_SIZE instead. */
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1649
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1650 int
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1651 font_unparse_fcname (font, pixel_size, name, nbytes)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1652 Lisp_Object font;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1653 int pixel_size;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1654 char *name;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1655 int nbytes;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1656 {
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1657 Lisp_Object family, foundry;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1658 Lisp_Object tail, val;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1659 int point_size;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1660 int i, len = 1;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1661 char *p;
90476
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1662 Lisp_Object styles[3];
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
1663 char *style_names[3] = { "weight", "slant", "width" };
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1664 char work[256];
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1665
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1666 family = AREF (font, FONT_FAMILY_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1667 if (! NILP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1668 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1669 if (SYMBOLP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1670 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1671 family = SYMBOL_NAME (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1672 len += SBYTES (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1673 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1674 else
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1675 family = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1676 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1677
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1678 val = AREF (font, FONT_SIZE_INDEX);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1679 if (INTEGERP (val))
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1680 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1681 if (XINT (val) != 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1682 pixel_size = XINT (val);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1683 point_size = -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1684 len += 21; /* for ":pixelsize=NUM" */
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1685 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1686 else if (FLOATP (val))
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1687 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1688 pixel_size = -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1689 point_size = (int) XFLOAT_DATA (val);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1690 len += 11; /* for "-NUM" */
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1691 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1692
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1693 foundry = AREF (font, FONT_FOUNDRY_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1694 if (! NILP (foundry))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1695 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1696 if (SYMBOLP (foundry))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1697 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1698 foundry = SYMBOL_NAME (foundry);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1699 len += 9 + SBYTES (foundry); /* ":foundry=NAME" */
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1700 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1701 else
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1702 foundry = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1703 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1704
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1705 for (i = 0; i < 3; i++)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1706 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1707 styles[i] = font_style_symbolic (font, FONT_WEIGHT_INDEX + i, 0);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1708 if (! NILP (styles[i]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1709 len += sprintf (work, ":%s=%s", style_names[i],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1710 SDATA (SYMBOL_NAME (styles[i])));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1711 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1712
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1713 if (INTEGERP (AREF (font, FONT_DPI_INDEX)))
105576
9e1a1361da63 (font_unparse_xlfd, font_unparse_fcname): Use long format in printf, and cast argument.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 105155
diff changeset
1714 len += sprintf (work, ":dpi=%ld", (long)XINT (AREF (font, FONT_DPI_INDEX)));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1715 if (INTEGERP (AREF (font, FONT_SPACING_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1716 len += strlen (":spacing=100");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1717 if (INTEGERP (AREF (font, FONT_AVGWIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1718 len += strlen (":scalable=false"); /* or ":scalable=true" */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1719 for (tail = AREF (font, FONT_EXTRA_INDEX); CONSP (tail); tail = XCDR (tail))
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1720 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1721 Lisp_Object key = XCAR (XCAR (tail)), val = XCDR (XCAR (tail));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1722
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1723 len += SBYTES (SYMBOL_NAME (key)) + 1; /* for :KEY= */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1724 if (STRINGP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1725 len += SBYTES (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1726 else if (INTEGERP (val))
105576
9e1a1361da63 (font_unparse_xlfd, font_unparse_fcname): Use long format in printf, and cast argument.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 105155
diff changeset
1727 len += sprintf (work, "%ld", (long) XINT (val));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1728 else if (SYMBOLP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1729 len += (NILP (val) ? 5 : 4); /* for "false" or "true" */
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1730 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1731
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1732 if (len > nbytes)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1733 return -1;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1734 p = name;
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1735 if (! NILP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1736 p += sprintf (p, "%s", SDATA (family));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1737 if (point_size > 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1738 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1739 if (p == name)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1740 p += sprintf (p, "%d", point_size);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1741 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1742 p += sprintf (p, "-%d", point_size);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1743 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1744 else if (pixel_size > 0)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1745 p += sprintf (p, ":pixelsize=%d", pixel_size);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1746 if (! NILP (AREF (font, FONT_FOUNDRY_INDEX)))
90476
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1747 p += sprintf (p, ":foundry=%s",
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1748 SDATA (SYMBOL_NAME (AREF (font, FONT_FOUNDRY_INDEX))));
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1749 for (i = 0; i < 3; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1750 if (! NILP (styles[i]))
90476
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1751 p += sprintf (p, ":%s=%s", style_names[i],
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1752 SDATA (SYMBOL_NAME (styles[i])));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1753 if (INTEGERP (AREF (font, FONT_DPI_INDEX)))
105576
9e1a1361da63 (font_unparse_xlfd, font_unparse_fcname): Use long format in printf, and cast argument.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 105155
diff changeset
1754 p += sprintf (p, ":dpi=%ld", (long) XINT (AREF (font, FONT_DPI_INDEX)));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1755 if (INTEGERP (AREF (font, FONT_SPACING_INDEX)))
105576
9e1a1361da63 (font_unparse_xlfd, font_unparse_fcname): Use long format in printf, and cast argument.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 105155
diff changeset
1756 p += sprintf (p, ":spacing=%ld",
9e1a1361da63 (font_unparse_xlfd, font_unparse_fcname): Use long format in printf, and cast argument.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 105155
diff changeset
1757 (long) XINT (AREF (font, FONT_SPACING_INDEX)));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1758 if (INTEGERP (AREF (font, FONT_AVGWIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1759 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1760 if (XINT (AREF (font, FONT_AVGWIDTH_INDEX)) == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1761 p += sprintf (p, ":scalable=true");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1762 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1763 p += sprintf (p, ":scalable=false");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1764 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1765 return (p - name);
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1766 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1767
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1768 /* Store GTK-style font name of FONT (font-spec or font-entity) in
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1769 NAME (NBYTES length), and return the name length. F is the frame
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1770 on which the font is displayed; it is used to calculate the point
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1771 size. */
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1772
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1773 int
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1774 font_unparse_gtkname (font, f, name, nbytes)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1775 Lisp_Object font;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1776 struct frame *f;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1777 char *name;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1778 int nbytes;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1779 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1780 char *p;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1781 int len = 1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1782 Lisp_Object family, weight, slant, size;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1783 int point_size = -1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1784
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1785 family = AREF (font, FONT_FAMILY_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1786 if (! NILP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1787 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1788 if (! SYMBOLP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1789 return -1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1790 family = SYMBOL_NAME (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1791 len += SBYTES (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1792 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1793
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1794 weight = font_style_symbolic (font, FONT_WEIGHT_INDEX, 0);
96017
54d310663505 (font_unparse_gtkname): Use EQ to compare Lisp_Objects.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96016
diff changeset
1795 if (EQ (weight, Qnormal))
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1796 weight = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1797 else if (! NILP (weight))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1798 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1799 weight = SYMBOL_NAME (weight);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1800 len += SBYTES (weight);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1801 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1802
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1803 slant = font_style_symbolic (font, FONT_SLANT_INDEX, 0);
96017
54d310663505 (font_unparse_gtkname): Use EQ to compare Lisp_Objects.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96016
diff changeset
1804 if (EQ (slant, Qnormal))
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1805 slant = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1806 else if (! NILP (slant))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1807 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1808 slant = SYMBOL_NAME (slant);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1809 len += SBYTES (slant);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1810 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1811
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1812 size = AREF (font, FONT_SIZE_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1813 /* Convert pixel size to point size. */
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1814 if (INTEGERP (size))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1815 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1816 Lisp_Object font_dpi = AREF (font, FONT_DPI_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1817 int dpi = 75;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1818 if (INTEGERP (font_dpi))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1819 dpi = XINT (font_dpi);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1820 else if (f)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1821 dpi = f->resy;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1822 point_size = PIXEL_TO_POINT (XINT (size), dpi);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1823 len += 11;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1824 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1825 else if (FLOATP (size))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1826 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1827 point_size = (int) XFLOAT_DATA (size);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1828 len += 11;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1829 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1830
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1831 if (len > nbytes)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1832 return -1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1833
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1834 p = name + sprintf (name, "%s", SDATA (family));
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1835
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1836 if (! NILP (weight))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1837 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1838 char *q = p;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1839 p += sprintf (p, " %s", SDATA (weight));
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1840 q[1] = toupper (q[1]);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1841 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1842
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1843 if (! NILP (slant))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1844 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1845 char *q = p;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1846 p += sprintf (p, " %s", SDATA (slant));
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1847 q[1] = toupper (q[1]);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1848 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1849
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1850 if (point_size > 0)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1851 p += sprintf (p, " %d", point_size);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1852
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1853 return (p - name);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1854 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1855
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1856 /* Parse NAME (null terminated) and store information in FONT
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1857 (font-spec or font-entity). If NAME is successfully parsed, return
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1858 0. Otherwise return -1. */
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1859
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1860 static int
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1861 font_parse_name (name, font)
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1862 char *name;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1863 Lisp_Object font;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1864 {
101293
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
1865 if (name[0] == '-' || index (name, '*') || index (name, '?'))
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1866 return font_parse_xlfd (name, font);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1867 return font_parse_fcname (name, font);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1868 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1869
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1870
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1871 /* Merge FAMILY and REGISTRY into FONT_SPEC. FAMILY may have the form
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1872 "FAMILY-FOUNDRY". REGISTRY may not contain charset-encoding
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1873 part. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
1874
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1875 void
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1876 font_parse_family_registry (family, registry, font_spec)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1877 Lisp_Object family, registry, font_spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1878 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1879 int len;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1880 char *p0, *p1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1881
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1882 if (! NILP (family)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1883 && NILP (AREF (font_spec, FONT_FAMILY_INDEX)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1884 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1885 CHECK_STRING (family);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1886 len = SBYTES (family);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1887 p0 = (char *) SDATA (family);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1888 p1 = index (p0, '-');
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1889 if (p1)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1890 {
103369
97cfffb6f666 (font_parse_family_registry): Fix for one-char foundry.
Kenichi Handa <handa@m17n.org>
parents: 103255
diff changeset
1891 if ((*p0 != '*' && p1 - p0 > 0)
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1892 && NILP (AREF (font_spec, FONT_FOUNDRY_INDEX)))
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1893 Ffont_put (font_spec, QCfoundry, font_intern_prop (p0, p1 - p0, 1));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1894 p1++;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1895 len -= p1 - p0;
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1896 Ffont_put (font_spec, QCfamily, font_intern_prop (p1, len, 1));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1897 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1898 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1899 ASET (font_spec, FONT_FAMILY_INDEX, Fintern (family, Qnil));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1900 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1901 if (! NILP (registry))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1902 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1903 /* Convert "XXX" and "XXX*" to "XXX*-*". */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1904 CHECK_STRING (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1905 len = SBYTES (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1906 p0 = (char *) SDATA (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1907 p1 = index (p0, '-');
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1908 if (! p1)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1909 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1910 if (SDATA (registry)[len - 1] == '*')
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1911 registry = concat2 (registry, build_string ("-*"));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1912 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1913 registry = concat2 (registry, build_string ("*-*"));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1914 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1915 registry = Fdowncase (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1916 ASET (font_spec, FONT_REGISTRY_INDEX, Fintern (registry, Qnil));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1917 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1918 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1919
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
1920
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1921 /* This part (through the next ^L) is still experimental and not
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1922 tested much. We may drastically change codes. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
1923
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
1924 /* OTF handler */
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
1925
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
1926 #if 0
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
1927
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1928 #define LGSTRING_HEADER_SIZE 6
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1929 #define LGSTRING_GLYPH_SIZE 8
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1930
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1931 static int
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1932 check_gstring (gstring)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1933 Lisp_Object gstring;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1934 {
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1935 Lisp_Object val;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1936 int i, j;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1937
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1938 CHECK_VECTOR (gstring);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1939 val = AREF (gstring, 0);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1940 CHECK_VECTOR (val);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1941 if (ASIZE (val) < LGSTRING_HEADER_SIZE)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1942 goto err;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1943 CHECK_FONT_OBJECT (LGSTRING_FONT (gstring));
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1944 if (!NILP (LGSTRING_SLOT (gstring, LGSTRING_IX_LBEARING)))
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1945 CHECK_NUMBER (LGSTRING_SLOT (gstring, LGSTRING_IX_LBEARING));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1946 if (!NILP (LGSTRING_SLOT (gstring, LGSTRING_IX_RBEARING)))
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1947 CHECK_NUMBER (LGSTRING_SLOT (gstring, LGSTRING_IX_RBEARING));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1948 if (!NILP (LGSTRING_SLOT (gstring, LGSTRING_IX_WIDTH)))
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1949 CHECK_NATNUM (LGSTRING_SLOT (gstring, LGSTRING_IX_WIDTH));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1950 if (!NILP (LGSTRING_SLOT (gstring, LGSTRING_IX_ASCENT)))
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1951 CHECK_NUMBER (LGSTRING_SLOT (gstring, LGSTRING_IX_ASCENT));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1952 if (!NILP (LGSTRING_SLOT (gstring, LGSTRING_IX_ASCENT)))
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1953 CHECK_NUMBER (LGSTRING_SLOT (gstring, LGSTRING_IX_ASCENT));
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1954
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
1955 for (i = 0; i < LGSTRING_GLYPH_LEN (gstring); i++)
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1956 {
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1957 val = LGSTRING_GLYPH (gstring, i);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1958 CHECK_VECTOR (val);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1959 if (ASIZE (val) < LGSTRING_GLYPH_SIZE)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1960 goto err;
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1961 if (NILP (AREF (val, LGLYPH_IX_CHAR)))
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1962 break;
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1963 CHECK_NATNUM (AREF (val, LGLYPH_IX_FROM));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1964 CHECK_NATNUM (AREF (val, LGLYPH_IX_TO));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1965 CHECK_CHARACTER (AREF (val, LGLYPH_IX_CHAR));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1966 if (!NILP (AREF (val, LGLYPH_IX_CODE)))
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1967 CHECK_NATNUM (AREF (val, LGLYPH_IX_CODE));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1968 if (!NILP (AREF (val, LGLYPH_IX_WIDTH)))
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1969 CHECK_NATNUM (AREF (val, LGLYPH_IX_WIDTH));
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1970 if (!NILP (AREF (val, LGLYPH_IX_ADJUSTMENT)))
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1971 {
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1972 val = AREF (val, LGLYPH_IX_ADJUSTMENT);
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1973 CHECK_VECTOR (val);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1974 if (ASIZE (val) < 3)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1975 goto err;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1976 for (j = 0; j < 3; j++)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1977 CHECK_NUMBER (AREF (val, j));
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1978 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1979 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1980 return i;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1981 err:
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1982 error ("Invalid glyph-string format");
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1983 return -1;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1984 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1985
90823
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1986 static void
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1987 check_otf_features (otf_features)
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1988 Lisp_Object otf_features;
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1989 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1990 Lisp_Object val;
90823
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1991
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1992 CHECK_CONS (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1993 CHECK_SYMBOL (XCAR (otf_features));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1994 otf_features = XCDR (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1995 CHECK_CONS (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1996 CHECK_SYMBOL (XCAR (otf_features));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1997 otf_features = XCDR (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1998 for (val = Fcar (otf_features); ! NILP (val); val = Fcdr (val))
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1999 {
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2000 CHECK_SYMBOL (Fcar (val));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2001 if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2002 error ("Invalid OTF GSUB feature: %s", SYMBOL_NAME (XCAR (val)));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2003 }
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2004 otf_features = XCDR (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2005 for (val = Fcar (otf_features); ! NILP (val); val = Fcdr (val))
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2006 {
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2007 CHECK_SYMBOL (Fcar (val));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2008 if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2009 error ("Invalid OTF GPOS feature: %s", SYMBOL_NAME (XCAR (val)));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2010 }
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2011 }
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
2012
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2013 #ifdef HAVE_LIBOTF
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2014 #include <otf.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2015
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2016 Lisp_Object otf_list;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2017
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2018 static Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2019 otf_tag_symbol (tag)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2020 OTF_Tag tag;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2021 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2022 char name[5];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2023
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2024 OTF_tag_name (tag, name);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2025 return Fintern (make_unibyte_string (name, 4), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2026 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2027
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2028 static OTF *
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2029 otf_open (file)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2030 Lisp_Object file;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2031 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2032 Lisp_Object val = Fassoc (file, otf_list);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2033 OTF *otf;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2034
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2035 if (! NILP (val))
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2036 otf = XSAVE_VALUE (XCDR (val))->pointer;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2037 else
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2038 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2039 otf = STRINGP (file) ? OTF_open ((char *) SDATA (file)) : NULL;
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2040 val = make_save_value (otf, 0);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2041 otf_list = Fcons (Fcons (file, val), otf_list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2042 }
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2043 return otf;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2044 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2045
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2046
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2047 /* Return a list describing which scripts/languages FONT supports by
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2048 which GSUB/GPOS features of OpenType tables. See the comment of
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
2049 (struct font_driver).otf_capability. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2050
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2051 Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2052 font_otf_capability (font)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2053 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2054 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2055 OTF *otf;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2056 Lisp_Object capability = Fcons (Qnil, Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2057 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2058
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2059 otf = otf_open (font->props[FONT_FILE_INDEX]);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2060 if (! otf)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2061 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2062 for (i = 0; i < 2; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2063 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2064 OTF_GSUB_GPOS *gsub_gpos;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2065 Lisp_Object script_list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2066 int j;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2067
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2068 if (OTF_get_features (otf, i == 0) < 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2069 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2070 gsub_gpos = i == 0 ? otf->gsub : otf->gpos;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2071 for (j = gsub_gpos->ScriptList.ScriptCount - 1; j >= 0; j--)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2072 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2073 OTF_Script *script = gsub_gpos->ScriptList.Script + j;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2074 Lisp_Object langsys_list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2075 Lisp_Object script_tag = otf_tag_symbol (script->ScriptTag);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2076 int k;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2077
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2078 for (k = script->LangSysCount; k >= 0; k--)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2079 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2080 OTF_LangSys *langsys;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2081 Lisp_Object feature_list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2082 Lisp_Object langsys_tag;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2083 int l;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2084
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2085 if (k == script->LangSysCount)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2086 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2087 langsys = &script->DefaultLangSys;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2088 langsys_tag = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2089 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2090 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2091 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2092 langsys = script->LangSys + k;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2093 langsys_tag
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2094 = otf_tag_symbol (script->LangSysRecord[k].LangSysTag);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2095 }
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2096 for (l = langsys->FeatureCount - 1; l >= 0; l--)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2097 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2098 OTF_Feature *feature
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2099 = gsub_gpos->FeatureList.Feature + langsys->FeatureIndex[l];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2100 Lisp_Object feature_tag
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2101 = otf_tag_symbol (feature->FeatureTag);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2102
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2103 feature_list = Fcons (feature_tag, feature_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2104 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2105 langsys_list = Fcons (Fcons (langsys_tag, feature_list),
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2106 langsys_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2107 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2108 script_list = Fcons (Fcons (script_tag, langsys_list),
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2109 script_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2110 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2111
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2112 if (i == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2113 XSETCAR (capability, script_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2114 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2115 XSETCDR (capability, script_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2116 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2117
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2118 return capability;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2119 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2120
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2121 /* Parse OTF features in SPEC and write a proper features spec string
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2122 in FEATURES for the call of OTF_drive_gsub/gpos (of libotf). It is
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2123 assured that the sufficient memory has already allocated for
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2124 FEATURES. */
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2125
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2126 static void
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2127 generate_otf_features (spec, features)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2128 Lisp_Object spec;
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2129 char *features;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2130 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2131 Lisp_Object val;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2132 char *p;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2133 int asterisk;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2134
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2135 p = features;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2136 *p = '\0';
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2137 for (asterisk = 0; CONSP (spec); spec = XCDR (spec))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2138 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2139 val = XCAR (spec);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2140 CHECK_SYMBOL (val);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2141 if (p > features)
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2142 *p++ = ',';
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2143 if (SREF (SYMBOL_NAME (val), 0) == '*')
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2144 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2145 asterisk = 1;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2146 *p++ = '*';
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2147 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2148 else if (! asterisk)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2149 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2150 val = SYMBOL_NAME (val);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2151 p += sprintf (p, "%s", SDATA (val));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2152 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2153 else
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2154 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2155 val = SYMBOL_NAME (val);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2156 p += sprintf (p, "~%s", SDATA (val));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2157 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2158 }
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2159 if (CONSP (spec))
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2160 error ("OTF spec too long");
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2161 }
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2162
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2163 Lisp_Object
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2164 font_otf_DeviceTable (device_table)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2165 OTF_DeviceTable *device_table;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2166 {
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2167 int len = device_table->StartSize - device_table->EndSize + 1;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2168
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2169 return Fcons (make_number (len),
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2170 make_unibyte_string (device_table->DeltaValue, len));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2171 }
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2172
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2173 Lisp_Object
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2174 font_otf_ValueRecord (value_format, value_record)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2175 int value_format;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2176 OTF_ValueRecord *value_record;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2177 {
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2178 Lisp_Object val = Fmake_vector (make_number (8), Qnil);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2179
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2180 if (value_format & OTF_XPlacement)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2181 ASET (val, 0, make_number (value_record->XPlacement));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2182 if (value_format & OTF_YPlacement)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2183 ASET (val, 1, make_number (value_record->YPlacement));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2184 if (value_format & OTF_XAdvance)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2185 ASET (val, 2, make_number (value_record->XAdvance));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2186 if (value_format & OTF_YAdvance)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2187 ASET (val, 3, make_number (value_record->YAdvance));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2188 if (value_format & OTF_XPlaDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2189 ASET (val, 4, font_otf_DeviceTable (&value_record->XPlaDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2190 if (value_format & OTF_YPlaDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2191 ASET (val, 4, font_otf_DeviceTable (&value_record->YPlaDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2192 if (value_format & OTF_XAdvDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2193 ASET (val, 4, font_otf_DeviceTable (&value_record->XAdvDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2194 if (value_format & OTF_YAdvDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2195 ASET (val, 4, font_otf_DeviceTable (&value_record->YAdvDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2196 return val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2197 }
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2198
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2199 Lisp_Object
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2200 font_otf_Anchor (anchor)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2201 OTF_Anchor *anchor;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2202 {
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2203 Lisp_Object val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2204
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2205 val = Fmake_vector (make_number (anchor->AnchorFormat + 1), Qnil);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2206 ASET (val, 0, make_number (anchor->XCoordinate));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2207 ASET (val, 1, make_number (anchor->YCoordinate));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2208 if (anchor->AnchorFormat == 2)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2209 ASET (val, 2, make_number (anchor->f.f1.AnchorPoint));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2210 else
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2211 {
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2212 ASET (val, 3, font_otf_DeviceTable (&anchor->f.f2.XDeviceTable));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2213 ASET (val, 4, font_otf_DeviceTable (&anchor->f.f2.YDeviceTable));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2214 }
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2215 return val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2216 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2217 #endif /* HAVE_LIBOTF */
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
2218 #endif /* 0 */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2219
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2220
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2221 /* Font sorting */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2222
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2223 static unsigned font_score P_ ((Lisp_Object, Lisp_Object *));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2224 static int font_compare P_ ((const void *, const void *));
103255
a8e08bcfc3ad (font_sort_entities): Renamed from font_sort_entites.
Kenichi Handa <handa@m17n.org>
parents: 103246
diff changeset
2225 static Lisp_Object font_sort_entities P_ ((Lisp_Object, Lisp_Object,
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2226 Lisp_Object, int));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2227
100385
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2228 /* Return a rescaling ratio of FONT_ENTITY. */
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2229 extern Lisp_Object Vface_font_rescale_alist;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2230
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2231 static double
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2232 font_rescale_ratio (font_entity)
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2233 Lisp_Object font_entity;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2234 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2235 Lisp_Object tail, elt;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2236 Lisp_Object name = Qnil;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2237
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2238 for (tail = Vface_font_rescale_alist; CONSP (tail); tail = XCDR (tail))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2239 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2240 elt = XCAR (tail);
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2241 if (FLOATP (XCDR (elt)))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2242 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2243 if (STRINGP (XCAR (elt)))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2244 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2245 if (NILP (name))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2246 name = Ffont_xlfd_name (font_entity, Qnil);
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2247 if (fast_string_match_ignore_case (XCAR (elt), name) >= 0)
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2248 return XFLOAT_DATA (XCDR (elt));
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2249 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2250 else if (FONT_SPEC_P (XCAR (elt)))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2251 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2252 if (font_match_p (XCAR (elt), font_entity))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2253 return XFLOAT_DATA (XCDR (elt));
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2254 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2255 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2256 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2257 return 1.0;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2258 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2259
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2260 /* We sort fonts by scoring each of them against a specified
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2261 font-spec. The score value is 32 bit (`unsigned'), and the smaller
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2262 the value is, the closer the font is to the font-spec.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2263
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2264 The lowest 2 bits of the score is used for driver type. The font
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2265 available by the most preferred font driver is 0.
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2266
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2267 Each 7-bit in the higher 28 bits are used for numeric properties
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2268 WEIGHT, SLANT, WIDTH, and SIZE. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2269
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2270 /* How many bits to shift to store the difference value of each font
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2271 property in a score. Note that flots for FONT_TYPE_INDEX and
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2272 FONT_REGISTRY_INDEX are not used. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2273 static int sort_shift_bits[FONT_SIZE_INDEX + 1];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2274
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2275 /* Score font-entity ENTITY against properties of font-spec SPEC_PROP.
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2276 The return value indicates how different ENTITY is compared with
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2277 SPEC_PROP. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2278
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2279 static unsigned
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2280 font_score (entity, spec_prop)
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2281 Lisp_Object entity, *spec_prop;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2282 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2283 unsigned score = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2284 int i;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2285
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2286 /* Score three style numeric fields. Maximum difference is 127. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2287 for (i = FONT_WEIGHT_INDEX; i <= FONT_WIDTH_INDEX; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2288 if (! NILP (spec_prop[i]) && ! EQ (AREF (entity, i), spec_prop[i]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2289 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2290 int diff = (XINT (AREF (entity, i)) >> 8) - (XINT (spec_prop[i]) >> 8);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2291
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2292 if (diff < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2293 diff = - diff;
95875
d56319d0f726 (font_score): Ignore the diffference of alias style symbols.
Kenichi Handa <handa@m17n.org>
parents: 95869
diff changeset
2294 if (diff > 0)
d56319d0f726 (font_score): Ignore the diffference of alias style symbols.
Kenichi Handa <handa@m17n.org>
parents: 95869
diff changeset
2295 score |= min (diff, 127) << sort_shift_bits[i];
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2296 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2297
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2298 /* Score the size. Maximum difference is 127. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2299 i = FONT_SIZE_INDEX;
100385
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2300 if (! NILP (spec_prop[FONT_SIZE_INDEX])
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2301 && XINT (AREF (entity, FONT_SIZE_INDEX)) > 0)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2302 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2303 /* We use the higher 6-bit for the actual size difference. The
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2304 lowest bit is set if the DPI is different. */
100385
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2305 int diff;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2306 int pixel_size = XINT (spec_prop[FONT_SIZE_INDEX]);
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2307
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2308 if (CONSP (Vface_font_rescale_alist))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2309 pixel_size *= font_rescale_ratio (entity);
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2310 diff = pixel_size - XINT (AREF (entity, FONT_SIZE_INDEX));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2311 if (diff < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2312 diff = - diff;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2313 diff <<= 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2314 if (! NILP (spec_prop[FONT_DPI_INDEX])
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2315 && ! EQ (spec_prop[FONT_DPI_INDEX], AREF (entity, FONT_DPI_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2316 diff |= 1;
103041
3049105cf79e (font_score): Check AVGWIDTH too.
Kenichi Handa <handa@m17n.org>
parents: 103037
diff changeset
2317 if (! NILP (spec_prop[FONT_AVGWIDTH_INDEX])
3049105cf79e (font_score): Check AVGWIDTH too.
Kenichi Handa <handa@m17n.org>
parents: 103037
diff changeset
2318 && ! EQ (spec_prop[FONT_AVGWIDTH_INDEX], AREF (entity, FONT_AVGWIDTH_INDEX)))
3049105cf79e (font_score): Check AVGWIDTH too.
Kenichi Handa <handa@m17n.org>
parents: 103037
diff changeset
2319 diff |= 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2320 score |= min (diff, 127) << sort_shift_bits[FONT_SIZE_INDEX];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2321 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2322
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2323 return score;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2324 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2325
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2326
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2327 /* Concatenate all elements of LIST into one vector. LIST is a list
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2328 of font-entity vectors. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2329
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2330 static Lisp_Object
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2331 font_vconcat_entity_vectors (Lisp_Object list)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2332 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2333 int nargs = XINT (Flength (list));
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2334 Lisp_Object *args = alloca (sizeof (Lisp_Object) * nargs);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2335 int i;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2336
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2337 for (i = 0; i < nargs; i++, list = XCDR (list))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2338 args[i] = XCAR (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2339 return Fvconcat (nargs, args);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2340 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2341
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2342
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2343 /* The structure for elements being sorted by qsort. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2344 struct font_sort_data
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2345 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2346 unsigned score;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2347 int font_driver_preference;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2348 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2349 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2350
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2351
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2352 /* The comparison function for qsort. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2353
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2354 static int
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2355 font_compare (d1, d2)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2356 const void *d1, *d2;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2357 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2358 const struct font_sort_data *data1 = d1;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2359 const struct font_sort_data *data2 = d2;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2360
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2361 if (data1->score < data2->score)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2362 return -1;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2363 else if (data1->score > data2->score)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2364 return 1;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2365 return (data1->font_driver_preference - data2->font_driver_preference);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2366 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2367
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2368
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2369 /* Sort each font-entity vector in LIST by closeness to font-spec PREFER.
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2370 If PREFER specifies a point-size, calculate the corresponding
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2371 pixel-size from QCdpi property of PREFER or from the Y-resolution
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2372 of FRAME before sorting.
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2373
102990
a706504f064e (font_sort_entites): Change the meaning of the arg
Kenichi Handa <handa@m17n.org>
parents: 102963
diff changeset
2374 If BEST-ONLY is nonzero, return the best matching entity (that
a706504f064e (font_sort_entites): Change the meaning of the arg
Kenichi Handa <handa@m17n.org>
parents: 102963
diff changeset
2375 supports the character BEST-ONLY if BEST-ONLY is positive, or any
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2376 if BEST-ONLY is negative). Otherwise, return the sorted result as
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2377 a single vector of font-entities.
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2378
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2379 This function does no optimization for the case that the total
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2380 number of elements is 1. The caller should avoid calling this in
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2381 such a case. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2382
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2383 static Lisp_Object
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2384 font_sort_entities (list, prefer, frame, best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2385 Lisp_Object list, prefer, frame;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2386 int best_only;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2387 {
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2388 Lisp_Object prefer_prop[FONT_SPEC_MAX];
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2389 int len, maxlen, i;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2390 struct font_sort_data *data;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2391 unsigned best_score;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2392 Lisp_Object best_entity;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2393 struct frame *f = XFRAME (frame);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2394 Lisp_Object tail, vec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2395 USE_SAFE_ALLOCA;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2396
103369
97cfffb6f666 (font_parse_family_registry): Fix for one-char foundry.
Kenichi Handa <handa@m17n.org>
parents: 103255
diff changeset
2397 for (i = FONT_WEIGHT_INDEX; i <= FONT_AVGWIDTH_INDEX; i++)
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2398 prefer_prop[i] = AREF (prefer, i);
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2399 if (FLOATP (prefer_prop[FONT_SIZE_INDEX]))
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2400 prefer_prop[FONT_SIZE_INDEX]
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2401 = make_number (font_pixel_size (XFRAME (frame), prefer));
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2402
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2403 if (NILP (XCDR (list)))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2404 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2405 /* What we have to take care of is this single vector. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2406 vec = XCAR (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2407 maxlen = ASIZE (vec);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2408 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2409 else if (best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2410 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2411 /* We don't have to perform sort, so there's no need of creating
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2412 a single vector. But, we must find the length of the longest
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2413 vector. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2414 maxlen = 0;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2415 for (tail = list; CONSP (tail); tail = XCDR (tail))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2416 if (maxlen < ASIZE (XCAR (tail)))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2417 maxlen = ASIZE (XCAR (tail));
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2418 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2419 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2420 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2421 /* We have to create a single vector to sort it. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2422 vec = font_vconcat_entity_vectors (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2423 maxlen = ASIZE (vec);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2424 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2425
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2426 SAFE_ALLOCA (data, struct font_sort_data *, (sizeof *data) * maxlen);
102990
a706504f064e (font_sort_entites): Change the meaning of the arg
Kenichi Handa <handa@m17n.org>
parents: 102963
diff changeset
2427 best_score = 0xFFFFFFFF;
a706504f064e (font_sort_entites): Change the meaning of the arg
Kenichi Handa <handa@m17n.org>
parents: 102963
diff changeset
2428 best_entity = Qnil;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2429
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2430 for (tail = list; CONSP (tail); tail = XCDR (tail))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2431 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2432 int font_driver_preference = 0;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2433 Lisp_Object current_font_driver;
106433
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
2434
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2435 if (best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2436 vec = XCAR (tail);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2437 len = ASIZE (vec);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2438
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2439 /* We are sure that the length of VEC > 0. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2440 current_font_driver = AREF (AREF (vec, 0), FONT_TYPE_INDEX);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2441 /* Score the elements. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2442 for (i = 0; i < len; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2443 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2444 data[i].entity = AREF (vec, i);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2445 data[i].score
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2446 = ((best_only <= 0 || font_has_char (f, data[i].entity, best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2447 > 0)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2448 ? font_score (data[i].entity, prefer_prop)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2449 : 0xFFFFFFFF);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2450 if (best_only && best_score > data[i].score)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2451 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2452 best_score = data[i].score;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2453 best_entity = data[i].entity;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2454 if (best_score == 0)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2455 break;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2456 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2457 if (! EQ (current_font_driver, AREF (AREF (vec, i), FONT_TYPE_INDEX)))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2458 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2459 current_font_driver = AREF (AREF (vec, i), FONT_TYPE_INDEX);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2460 font_driver_preference++;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2461 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2462 data[i].font_driver_preference = font_driver_preference;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2463 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2464
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2465 /* Sort if necessary. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2466 if (! best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2467 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2468 qsort (data, len, sizeof *data, font_compare);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2469 for (i = 0; i < len; i++)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2470 ASET (vec, i, data[i].entity);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2471 break;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2472 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2473 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2474 vec = best_entity;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2475 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2476
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2477 SAFE_FREE ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2478
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
2479 FONT_ADD_LOG ("sort-by", prefer, vec);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2480 return vec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2481 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2482
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2483
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2484 /* API of Font Service Layer. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2485
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2486 /* Reflect ORDER (see the variable font_sort_order in xfaces.c) to
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2487 sort_shift_bits. Finternal_set_font_selection_order calls this
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2488 function with font_sort_order after setting up it. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2489
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2490 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2491 font_update_sort_order (order)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2492 int *order;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2493 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2494 int i, shift_bits;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2495
95869
14ab94c436d7 (font_update_sort_order): Setting of sort_shift_bits adjusted for the
Kenichi Handa <handa@m17n.org>
parents: 95867
diff changeset
2496 for (i = 0, shift_bits = 23; i < 4; i++, shift_bits -= 7)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2497 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2498 int xlfd_idx = order[i];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2499
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2500 if (xlfd_idx == XLFD_WEIGHT_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2501 sort_shift_bits[FONT_WEIGHT_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2502 else if (xlfd_idx == XLFD_SLANT_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2503 sort_shift_bits[FONT_SLANT_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2504 else if (xlfd_idx == XLFD_SWIDTH_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2505 sort_shift_bits[FONT_WIDTH_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2506 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2507 sort_shift_bits[FONT_SIZE_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2508 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2509 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2510
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2511 static int
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2512 font_check_otf_features (script, langsys, features, table)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2513 Lisp_Object script, langsys, features, table;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2514 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2515 Lisp_Object val;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2516 int negative;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2517
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2518 table = assq_no_quit (script, table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2519 if (NILP (table))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2520 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2521 table = XCDR (table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2522 if (! NILP (langsys))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2523 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2524 table = assq_no_quit (langsys, table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2525 if (NILP (table))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2526 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2527 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2528 else
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2529 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2530 val = assq_no_quit (Qnil, table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2531 if (NILP (val))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2532 table = XCAR (table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2533 else
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2534 table = val;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2535 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2536 table = XCDR (table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2537 for (negative = 0; CONSP (features); features = XCDR (features))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2538 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2539 if (NILP (XCAR (features)))
102082
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2540 {
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2541 negative = 1;
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2542 continue;
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2543 }
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2544 if (NILP (Fmemq (XCAR (features), table)) != negative)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2545 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2546 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2547 return 1;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2548 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2549
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2550 /* Check if OTF_CAPABILITY satisfies SPEC (otf-spec). */
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2551
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2552 static int
96573
3de01ebe30b7 * fontset.c (fontset_get_font_group):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96565
diff changeset
2553 font_check_otf (Lisp_Object spec, Lisp_Object otf_capability)
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2554 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2555 Lisp_Object script, langsys = Qnil, gsub = Qnil, gpos = Qnil;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2556
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2557 script = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2558 spec = XCDR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2559 if (! NILP (spec))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2560 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2561 langsys = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2562 spec = XCDR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2563 if (! NILP (spec))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2564 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2565 gsub = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2566 spec = XCDR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2567 if (! NILP (spec))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2568 gpos = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2569 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2570 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2571
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2572 if (! NILP (gsub) && ! font_check_otf_features (script, langsys, gsub,
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2573 XCAR (otf_capability)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2574 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2575 if (! NILP (gpos) && ! font_check_otf_features (script, langsys, gpos,
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2576 XCDR (otf_capability)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2577 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2578 return 1;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2579 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2580
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2581
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2582
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2583 /* Check if FONT (font-entity or font-object) matches with the font
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2584 specification SPEC. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2585
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2586 int
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2587 font_match_p (spec, font)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2588 Lisp_Object spec, font;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2589 {
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2590 Lisp_Object prop[FONT_SPEC_MAX], *props;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2591 Lisp_Object extra, font_extra;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2592 int i;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2593
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2594 for (i = FONT_FOUNDRY_INDEX; i <= FONT_REGISTRY_INDEX; i++)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2595 if (! NILP (AREF (spec, i))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2596 && ! NILP (AREF (font, i))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2597 && ! EQ (AREF (spec, i), AREF (font, i)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2598 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2599 props = XFONT_SPEC (spec)->props;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2600 if (FLOATP (props[FONT_SIZE_INDEX]))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2601 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2602 for (i = FONT_FOUNDRY_INDEX; i < FONT_SIZE_INDEX; i++)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2603 prop[i] = AREF (spec, i);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2604 prop[FONT_SIZE_INDEX]
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2605 = make_number (font_pixel_size (XFRAME (selected_frame), spec));
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2606 props = prop;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2607 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2608
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2609 if (font_score (font, props) > 0)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2610 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2611 extra = AREF (spec, FONT_EXTRA_INDEX);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2612 font_extra = AREF (font, FONT_EXTRA_INDEX);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2613 for (; CONSP (extra); extra = XCDR (extra))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2614 {
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2615 Lisp_Object key = XCAR (XCAR (extra));
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2616 Lisp_Object val = XCDR (XCAR (extra)), val2;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2617
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2618 if (EQ (key, QClang))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2619 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2620 val2 = assq_no_quit (key, font_extra);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2621 if (NILP (val2))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2622 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2623 val2 = XCDR (val2);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2624 if (CONSP (val))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2625 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2626 if (! CONSP (val2))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2627 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2628 while (CONSP (val))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2629 if (NILP (Fmemq (val, val2)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2630 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2631 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2632 else
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2633 if (CONSP (val2)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2634 ? NILP (Fmemq (val, XCDR (val2)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2635 : ! EQ (val, val2))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2636 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2637 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2638 else if (EQ (key, QCscript))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2639 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2640 val2 = assq_no_quit (val, Vscript_representative_chars);
99075
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2641 if (CONSP (val2))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2642 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2643 val2 = XCDR (val2);
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2644 if (CONSP (val2))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2645 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2646 /* All characters in the list must be supported. */
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2647 for (; CONSP (val2); val2 = XCDR (val2))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2648 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2649 if (! NATNUMP (XCAR (val2)))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2650 continue;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2651 if (font_encode_char (font, XFASTINT (XCAR (val2)))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2652 == FONT_INVALID_CODE)
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2653 return 0;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2654 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2655 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2656 else if (VECTORP (val2))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2657 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2658 /* At most one character in the vector must be supported. */
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2659 for (i = 0; i < ASIZE (val2); i++)
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2660 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2661 if (! NATNUMP (AREF (val2, i)))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2662 continue;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2663 if (font_encode_char (font, XFASTINT (AREF (val2, i)))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2664 != FONT_INVALID_CODE)
99076
06c37ccf1b58 (font_match_p): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 99075
diff changeset
2665 break;
99075
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2666 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2667 if (i == ASIZE (val2))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2668 return 0;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2669 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2670 }
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2671 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2672 else if (EQ (key, QCotf))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2673 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2674 struct font *fontp;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2675
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2676 if (! FONT_OBJECT_P (font))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2677 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2678 fontp = XFONT_OBJECT (font);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2679 if (! fontp->driver->otf_capability)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2680 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2681 val2 = fontp->driver->otf_capability (fontp);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2682 if (NILP (val2) || ! font_check_otf (val, val2))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2683 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2684 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2685 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2686
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2687 return 1;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2688 }
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2689
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
2690
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2691 /* Font cache
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2692
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2693 Each font backend has the callback function get_cache, and it
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2694 returns a cons cell of which cdr part can be freely used for
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2695 caching fonts. The cons cell may be shared by multiple frames
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2696 and/or multiple font drivers. So, we arrange the cdr part as this:
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2697
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2698 ((DRIVER-TYPE NUM-FRAMES FONT-CACHE-DATA ...) ...)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2699
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2700 where DRIVER-TYPE is a symbol such as `x', `xft', etc., NUM-FRAMES
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2701 is a number frames sharing this cache, and FONT-CACHE-DATA is a
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2702 cons (FONT-SPEC FONT-ENTITY ...). */
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2703
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2704 static void font_prepare_cache P_ ((FRAME_PTR, struct font_driver *));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2705 static void font_finish_cache P_ ((FRAME_PTR, struct font_driver *));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2706 static Lisp_Object font_get_cache P_ ((FRAME_PTR, struct font_driver *));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2707 static void font_clear_cache P_ ((FRAME_PTR, Lisp_Object,
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2708 struct font_driver *));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2709
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2710 static void
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2711 font_prepare_cache (f, driver)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2712 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2713 struct font_driver *driver;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2714 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2715 Lisp_Object cache, val;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2716
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2717 cache = driver->get_cache (f);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2718 val = XCDR (cache);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2719 while (CONSP (val) && ! EQ (XCAR (XCAR (val)), driver->type))
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2720 val = XCDR (val);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2721 if (NILP (val))
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2722 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2723 val = Fcons (driver->type, Fcons (make_number (1), Qnil));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2724 XSETCDR (cache, Fcons (val, XCDR (cache)));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2725 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2726 else
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2727 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2728 val = XCDR (XCAR (val));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2729 XSETCAR (val, make_number (XINT (XCAR (val)) + 1));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2730 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2731 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2732
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2733
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2734 static void
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2735 font_finish_cache (f, driver)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2736 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2737 struct font_driver *driver;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2738 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2739 Lisp_Object cache, val, tmp;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2740
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2741
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2742 cache = driver->get_cache (f);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2743 val = XCDR (cache);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2744 while (CONSP (val) && ! EQ (XCAR (XCAR (val)), driver->type))
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2745 cache = val, val = XCDR (val);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2746 font_assert (! NILP (val));
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2747 tmp = XCDR (XCAR (val));
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2748 XSETCAR (tmp, make_number (XINT (XCAR (tmp)) - 1));
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2749 if (XINT (XCAR (tmp)) == 0)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2750 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2751 font_clear_cache (f, XCAR (val), driver);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2752 XSETCDR (cache, XCDR (val));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2753 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2754 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2755
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2756
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2757 static Lisp_Object
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2758 font_get_cache (f, driver)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2759 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2760 struct font_driver *driver;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2761 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2762 Lisp_Object val = driver->get_cache (f);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2763 Lisp_Object type = driver->type;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2764
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2765 font_assert (CONSP (val));
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2766 for (val = XCDR (val); ! EQ (XCAR (XCAR (val)), type); val = XCDR (val));
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2767 font_assert (CONSP (val));
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2768 /* VAL = ((DRIVER-TYPE NUM-FRAMES FONT-CACHE-DATA ...) ...) */
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2769 val = XCDR (XCAR (val));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2770 return val;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2771 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2772
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2773 static int num_fonts;
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2774
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2775 static void
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2776 font_clear_cache (f, cache, driver)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2777 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2778 Lisp_Object cache;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2779 struct font_driver *driver;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2780 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2781 Lisp_Object tail, elt;
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2782 Lisp_Object tail2, entity;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
2783
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2784 /* CACHE = (DRIVER-TYPE NUM-FRAMES FONT-CACHE-DATA ...) */
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2785 for (tail = XCDR (XCDR (cache)); CONSP (tail); tail = XCDR (tail))
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2786 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2787 elt = XCAR (tail);
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2788 /* elt should have the form (FONT-SPEC FONT-ENTITY ...) */
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2789 if (CONSP (elt) && FONT_SPEC_P (XCAR (elt)))
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2790 {
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2791 for (tail2 = XCDR (elt); CONSP (tail2); tail2 = XCDR (tail2))
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2792 {
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2793 entity = XCAR (tail2);
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2794
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2795 if (FONT_ENTITY_P (entity)
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2796 && EQ (driver->type, AREF (entity, FONT_TYPE_INDEX)))
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2797 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2798 Lisp_Object objlist = AREF (entity, FONT_OBJLIST_INDEX);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2799
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2800 for (; CONSP (objlist); objlist = XCDR (objlist))
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2801 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2802 Lisp_Object val = XCAR (objlist);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2803 struct font *font = XFONT_OBJECT (val);
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2804
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2805 if (! NILP (AREF (val, FONT_TYPE_INDEX)))
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2806 {
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2807 font_assert (font && driver == font->driver);
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2808 driver->close (f, font);
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2809 num_fonts--;
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2810 }
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2811 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2812 if (driver->free_entity)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2813 driver->free_entity (entity);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2814 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2815 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2816 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2817 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2818 XSETCDR (cache, Qnil);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2819 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2820
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2821
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2822 static Lisp_Object scratch_font_spec, scratch_font_prefer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2823
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2824 Lisp_Object
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2825 font_delete_unmatched (vec, spec, size)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2826 Lisp_Object vec, spec;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2827 int size;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2828 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2829 Lisp_Object entity, val;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2830 enum font_property_index prop;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2831 int i;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2832
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2833 for (val = Qnil, i = ASIZE (vec) - 1; i >= 0; i--)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2834 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2835 entity = AREF (vec, i);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2836 for (prop = FONT_WEIGHT_INDEX; prop < FONT_SIZE_INDEX; prop++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2837 if (INTEGERP (AREF (spec, prop))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2838 && ((XINT (AREF (spec, prop)) >> 8)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2839 != (XINT (AREF (entity, prop)) >> 8)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2840 prop = FONT_SPEC_MAX;
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2841 if (prop < FONT_SPEC_MAX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2842 && size
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2843 && XINT (AREF (entity, FONT_SIZE_INDEX)) > 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2844 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2845 int diff = XINT (AREF (entity, FONT_SIZE_INDEX)) - size;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2846
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2847 if (diff != 0
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2848 && (diff < 0 ? -diff > FONT_PIXEL_SIZE_QUANTUM
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2849 : diff > FONT_PIXEL_SIZE_QUANTUM))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2850 prop = FONT_SPEC_MAX;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2851 }
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2852 if (prop < FONT_SPEC_MAX
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2853 && INTEGERP (AREF (spec, FONT_DPI_INDEX))
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2854 && INTEGERP (AREF (entity, FONT_DPI_INDEX))
98581
bd9b20fa24a6 (font_delete_unmatched): Fix previous change. Don't
Kenichi Handa <handa@m17n.org>
parents: 98451
diff changeset
2855 && XINT (AREF (entity, FONT_DPI_INDEX)) != 0
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2856 && ! EQ (AREF (spec, FONT_DPI_INDEX), AREF (entity, FONT_DPI_INDEX)))
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2857 prop = FONT_SPEC_MAX;
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2858 if (prop < FONT_SPEC_MAX
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2859 && INTEGERP (AREF (spec, FONT_AVGWIDTH_INDEX))
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2860 && INTEGERP (AREF (entity, FONT_AVGWIDTH_INDEX))
98581
bd9b20fa24a6 (font_delete_unmatched): Fix previous change. Don't
Kenichi Handa <handa@m17n.org>
parents: 98451
diff changeset
2861 && XINT (AREF (entity, FONT_AVGWIDTH_INDEX)) != 0
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2862 && ! EQ (AREF (spec, FONT_AVGWIDTH_INDEX),
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2863 AREF (entity, FONT_AVGWIDTH_INDEX)))
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2864 prop = FONT_SPEC_MAX;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2865 if (prop < FONT_SPEC_MAX)
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2866 val = Fcons (entity, val);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2867 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2868 return (Fvconcat (1, &val));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2869 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2870
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2871
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2872 /* Return a list of vectors of font-entities matching with SPEC on
106433
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
2873 FRAME. Each elements in the list is a vector of entities from the
7c2192f52cb6 Fix a comment and delete trailing whitespace.
Chong Yidong <cyd@stupidchicken.com>
parents: 106350
diff changeset
2874 same font-driver. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2875
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2876 Lisp_Object
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2877 font_list_entities (frame, spec)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2878 Lisp_Object frame, spec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2879 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2880 FRAME_PTR f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2881 struct font_driver_list *driver_list = f->font_driver_list;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2882 Lisp_Object ftype, val;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2883 Lisp_Object list = Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2884 int size;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2885 int need_filtering = 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2886 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2887
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2888 font_assert (FONT_SPEC_P (spec));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2889
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2890 if (INTEGERP (AREF (spec, FONT_SIZE_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2891 size = XINT (AREF (spec, FONT_SIZE_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2892 else if (FLOATP (AREF (spec, FONT_SIZE_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2893 size = font_pixel_size (f, spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2894 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2895 size = 0;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2896
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2897 ftype = AREF (spec, FONT_TYPE_INDEX);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2898 for (i = FONT_FOUNDRY_INDEX; i <= FONT_REGISTRY_INDEX; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2899 ASET (scratch_font_spec, i, AREF (spec, i));
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2900 for (i = FONT_WEIGHT_INDEX; i < FONT_EXTRA_INDEX; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2901 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2902 ASET (scratch_font_spec, i, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2903 if (! NILP (AREF (spec, i)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2904 need_filtering = 1;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2905 if (i == FONT_DPI_INDEX)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2906 /* Skip FONT_SPACING_INDEX */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2907 i++;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2908 }
95359
f6580a4c58da (font_parse_family_registry): Use Ffont_put to validate
Kenichi Handa <handa@m17n.org>
parents: 95290
diff changeset
2909 ASET (scratch_font_spec, FONT_SPACING_INDEX, AREF (spec, FONT_SPACING_INDEX));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2910 ASET (scratch_font_spec, FONT_EXTRA_INDEX, AREF (spec, FONT_EXTRA_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2911
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2912 for (i = 0; driver_list; driver_list = driver_list->next)
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
2913 if (driver_list->on
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
2914 && (NILP (ftype) || EQ (driver_list->driver->type, ftype)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2915 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2916 Lisp_Object cache = font_get_cache (f, driver_list->driver);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2917
95437
6e6db01383e4 (font_list_entities): Fix the car part of data to be
Kenichi Handa <handa@m17n.org>
parents: 95421
diff changeset
2918 ASET (scratch_font_spec, FONT_TYPE_INDEX, driver_list->driver->type);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2919 val = assoc_no_quit (scratch_font_spec, XCDR (cache));
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2920 if (CONSP (val))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2921 val = XCDR (val);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2922 else
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2923 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2924 Lisp_Object copy;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2925
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2926 val = driver_list->driver->list (frame, scratch_font_spec);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2927 if (NILP (val))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2928 val = null_vector;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2929 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2930 val = Fvconcat (1, &val);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2931 copy = Fcopy_font_spec (scratch_font_spec);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2932 ASET (copy, FONT_TYPE_INDEX, driver_list->driver->type);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2933 XSETCDR (cache, Fcons (Fcons (copy, val), XCDR (cache)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2934 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2935 if (ASIZE (val) > 0 && need_filtering)
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2936 val = font_delete_unmatched (val, spec, size);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2937 if (ASIZE (val) > 0)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2938 list = Fcons (val, list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2939 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2940
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2941 list = Fnreverse (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2942 FONT_ADD_LOG ("list", spec, list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2943 return list;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2944 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2945
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2946
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2947 /* Return a font entity matching with SPEC on FRAME. ATTRS, if non
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2948 nil, is an array of face's attributes, which specifies preferred
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2949 font-related attributes. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2950
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2951 static Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2952 font_matching_entity (f, attrs, spec)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2953 FRAME_PTR f;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2954 Lisp_Object *attrs, spec;
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2955 {
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2956 struct font_driver_list *driver_list = f->font_driver_list;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2957 Lisp_Object ftype, size, entity;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2958 Lisp_Object frame;
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2959 Lisp_Object work = Fcopy_font_spec (spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2960
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2961 XSETFRAME (frame, f);
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2962 ftype = AREF (spec, FONT_TYPE_INDEX);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2963 size = AREF (spec, FONT_SIZE_INDEX);
98451
db015b441c0c * nsfont.m (nsfont_spec_to_traits): Use UnXX masks only for non-normal styles. (nsfont_open): Reenable the cache.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 98445
diff changeset
2964
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2965 if (FLOATP (size))
98451
db015b441c0c * nsfont.m (nsfont_spec_to_traits): Use UnXX masks only for non-normal styles. (nsfont_open): Reenable the cache.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 98445
diff changeset
2966 ASET (work, FONT_SIZE_INDEX, make_number (font_pixel_size (f, spec)));
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2967 FONT_SET_STYLE (work, FONT_WEIGHT_INDEX, attrs[LFACE_WEIGHT_INDEX]);
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2968 FONT_SET_STYLE (work, FONT_SLANT_INDEX, attrs[LFACE_SLANT_INDEX]);
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2969 FONT_SET_STYLE (work, FONT_WIDTH_INDEX, attrs[LFACE_SWIDTH_INDEX]);
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2970
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2971 entity = Qnil;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2972 for (; driver_list; driver_list = driver_list->next)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2973 if (driver_list->on
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2974 && (NILP (ftype) || EQ (driver_list->driver->type, ftype)))
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2975 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2976 Lisp_Object cache = font_get_cache (f, driver_list->driver);
95104
ae4280e6a166 (font_list_entities): Fix handling of cache.
Kenichi Handa <handa@m17n.org>
parents: 95013
diff changeset
2977 Lisp_Object copy;
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2978
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2979 ASET (work, FONT_TYPE_INDEX, driver_list->driver->type);
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2980 entity = assoc_no_quit (work, XCDR (cache));
95104
ae4280e6a166 (font_list_entities): Fix handling of cache.
Kenichi Handa <handa@m17n.org>
parents: 95013
diff changeset
2981 if (CONSP (entity))
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2982 entity = XCDR (entity);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2983 else
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2984 {
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2985 entity = driver_list->driver->match (frame, work);
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2986 copy = Fcopy_font_spec (work);
95104
ae4280e6a166 (font_list_entities): Fix handling of cache.
Kenichi Handa <handa@m17n.org>
parents: 95013
diff changeset
2987 ASET (copy, FONT_TYPE_INDEX, driver_list->driver->type);
ae4280e6a166 (font_list_entities): Fix handling of cache.
Kenichi Handa <handa@m17n.org>
parents: 95013
diff changeset
2988 XSETCDR (cache, Fcons (Fcons (copy, entity), XCDR (cache)));
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2989 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2990 if (! NILP (entity))
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2991 break;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2992 }
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
2993 FONT_ADD_LOG ("match", work, entity);
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2994 return entity;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2995 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2996
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2997
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2998 /* Open a font of ENTITY and PIXEL_SIZE on frame F, and return the
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2999 opened font object. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3000
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3001 static Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3002 font_open_entity (f, entity, pixel_size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3003 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3004 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3005 int pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3006 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3007 struct font_driver_list *driver_list;
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3008 Lisp_Object objlist, size, val, font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3009 struct font *font;
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3010 int min_width, height;
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
3011 int scaled_pixel_size;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3012
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3013 font_assert (FONT_ENTITY_P (entity));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3014 size = AREF (entity, FONT_SIZE_INDEX);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3015 if (XINT (size) != 0)
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
3016 scaled_pixel_size = pixel_size = XINT (size);
100385
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
3017 else if (CONSP (Vface_font_rescale_alist))
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
3018 scaled_pixel_size = pixel_size * font_rescale_ratio (entity);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3019
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3020 val = AREF (entity, FONT_TYPE_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3021 for (driver_list = f->font_driver_list;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3022 driver_list && ! EQ (driver_list->driver->type, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3023 driver_list = driver_list->next);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3024 if (! driver_list)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3025 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3026
106755
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3027 for (objlist = AREF (entity, FONT_OBJLIST_INDEX); CONSP (objlist);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3028 objlist = XCDR (objlist))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3029 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3030 Lisp_Object fn = XCAR (objlist);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3031 if (! NILP (AREF (fn, FONT_TYPE_INDEX))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3032 && XFONT_OBJECT (fn)->pixel_size == pixel_size)
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3033 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3034 if (driver_list->driver->cached_font_ok == NULL
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3035 || driver_list->driver->cached_font_ok (f, fn, entity))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3036 return fn;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3037 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3038 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106750
diff changeset
3039
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
3040 font_object = driver_list->driver->open (f, entity, scaled_pixel_size);
106215
da3ca3481c0b (font_open_entity): Don't use ASET if font_object is Qnil.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 106201
diff changeset
3041 if (!NILP (font_object))
da3ca3481c0b (font_open_entity): Don't use ASET if font_object is Qnil.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 106201
diff changeset
3042 ASET (font_object, FONT_SIZE_INDEX, make_number (pixel_size));
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
3043 FONT_ADD_LOG ("open", entity, font_object);
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3044 if (NILP (font_object))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3045 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3046 ASET (entity, FONT_OBJLIST_INDEX,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3047 Fcons (font_object, AREF (entity, FONT_OBJLIST_INDEX)));
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3048 ASET (font_object, FONT_OBJLIST_INDEX, Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3049 num_fonts++;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3050
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3051 font = XFONT_OBJECT (font_object);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3052 min_width = (font->min_width ? font->min_width
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3053 : font->average_width ? font->average_width
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3054 : font->space_width ? font->space_width
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3055 : 1);
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3056 height = (font->height ? font->height : 1);
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
3057 #ifdef HAVE_WINDOW_SYSTEM
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3058 FRAME_X_DISPLAY_INFO (f)->n_fonts++;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3059 if (FRAME_X_DISPLAY_INFO (f)->n_fonts == 1)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3060 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3061 FRAME_SMALLEST_CHAR_WIDTH (f) = min_width;
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3062 FRAME_SMALLEST_FONT_HEIGHT (f) = height;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3063 fonts_changed_p = 1;
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3064 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3065 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3066 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3067 if (FRAME_SMALLEST_CHAR_WIDTH (f) > min_width)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3068 FRAME_SMALLEST_CHAR_WIDTH (f) = min_width, fonts_changed_p = 1;
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3069 if (FRAME_SMALLEST_FONT_HEIGHT (f) > height)
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3070 FRAME_SMALLEST_FONT_HEIGHT (f) = height, fonts_changed_p = 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3071 }
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
3072 #endif
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3073
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3074 return font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3075 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3076
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3077
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3078 /* Close FONT_OBJECT that is opened on frame F. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3079
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3080 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3081 font_close_object (f, font_object)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3082 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3083 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3084 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3085 struct font *font = XFONT_OBJECT (font_object);
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3086
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3087 if (NILP (AREF (font_object, FONT_TYPE_INDEX)))
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3088 /* Already closed. */
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3089 return;
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
3090 FONT_ADD_LOG ("close", font_object, Qnil);
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3091 font->driver->close (f, font);
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
3092 #ifdef HAVE_WINDOW_SYSTEM
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3093 font_assert (FRAME_X_DISPLAY_INFO (f)->n_fonts);
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3094 FRAME_X_DISPLAY_INFO (f)->n_fonts--;
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
3095 #endif
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3096 num_fonts--;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3097 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3098
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3099
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
3100 /* Return 1 if FONT on F has a glyph for character C, 0 if not, -1 if
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
3101 FONT is a font-entity and it must be opened to check. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3102
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3103 int
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3104 font_has_char (f, font, c)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3105 FRAME_PTR f;
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3106 Lisp_Object font;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3107 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3108 {
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3109 struct font *fontp;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3110
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3111 if (FONT_ENTITY_P (font))
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3112 {
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3113 Lisp_Object type = AREF (font, FONT_TYPE_INDEX);
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3114 struct font_driver_list *driver_list;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3115
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3116 for (driver_list = f->font_driver_list;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3117 driver_list && ! EQ (driver_list->driver->type, type);
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3118 driver_list = driver_list->next);
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3119 if (! driver_list)
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3120 return 0;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3121 if (! driver_list->driver->has_char)
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3122 return -1;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3123 return driver_list->driver->has_char (font, c);
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3124 }
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3125
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3126 font_assert (FONT_OBJECT_P (font));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3127 fontp = XFONT_OBJECT (font);
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3128 if (fontp->driver->has_char)
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3129 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3130 int result = fontp->driver->has_char (font, c);
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3131
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3132 if (result >= 0)
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3133 return result;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3134 }
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3135 return (fontp->driver->encode_char (fontp, c) != FONT_INVALID_CODE);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3136 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3137
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3138
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3139 /* Return the glyph ID of FONT_OBJECT for character C. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3140
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3141 unsigned
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3142 font_encode_char (font_object, c)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3143 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3144 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3145 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3146 struct font *font;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3147
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3148 font_assert (FONT_OBJECT_P (font_object));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3149 font = XFONT_OBJECT (font_object);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3150 return font->driver->encode_char (font, c);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3151 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3152
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3153
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3154 /* Return the name of FONT_OBJECT. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3155
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3156 Lisp_Object
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3157 font_get_name (font_object)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3158 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3159 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3160 font_assert (FONT_OBJECT_P (font_object));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3161 return AREF (font_object, FONT_NAME_INDEX);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3162 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3163
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3164
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3165 /* Return the specification of FONT_OBJECT. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3166
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3167 Lisp_Object
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3168 font_get_spec (font_object)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3169 Lisp_Object font_object;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3170 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3171 Lisp_Object spec = font_make_spec ();
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3172 int i;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3173
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3174 for (i = 0; i < FONT_SIZE_INDEX; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3175 ASET (spec, i, AREF (font_object, i));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3176 ASET (spec, FONT_SIZE_INDEX,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3177 make_number (XFONT_OBJECT (font_object)->pixel_size));
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3178 return spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3179 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3180
101293
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3181
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3182 /* Create a new font spec from FONT_NAME, and return it. If FONT_NAME
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3183 could not be parsed by font_parse_name, return Qnil. */
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3184
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3185 Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3186 font_spec_from_name (font_name)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3187 Lisp_Object font_name;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3188 {
101293
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3189 Lisp_Object spec = Ffont_spec (0, NULL);
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3190
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3191 CHECK_STRING (font_name);
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3192 if (font_parse_name ((char *) SDATA (font_name), spec) == -1)
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3193 return Qnil;
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3194 font_put_extra (spec, QCname, font_name);
106750
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
3195 font_put_extra (spec, QCuser_spec, font_name);
101293
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3196 return spec;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3197 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3198
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3199
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3200 void
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3201 font_clear_prop (attrs, prop)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3202 Lisp_Object *attrs;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3203 enum font_property_index prop;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3204 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3205 Lisp_Object font = attrs[LFACE_FONT_INDEX];
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3206
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3207 if (! FONTP (font))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3208 return;
106750
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
3209
102897
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3210 if (! NILP (Ffont_get (font, QCname)))
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3211 {
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3212 font = Fcopy_font_spec (font);
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3213 font_put_extra (font, QCname, Qnil);
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3214 }
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3215
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3216 if (NILP (AREF (font, prop))
98717
507c5c477e60 (font_clear_prop): When clearing font width, clear the average width
Chong Yidong <cyd@stupidchicken.com>
parents: 98655
diff changeset
3217 && prop != FONT_FAMILY_INDEX
507c5c477e60 (font_clear_prop): When clearing font width, clear the average width
Chong Yidong <cyd@stupidchicken.com>
parents: 98655
diff changeset
3218 && prop != FONT_FOUNDRY_INDEX
507c5c477e60 (font_clear_prop): When clearing font width, clear the average width
Chong Yidong <cyd@stupidchicken.com>
parents: 98655
diff changeset
3219 && prop != FONT_WIDTH_INDEX
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3220 && prop != FONT_SIZE_INDEX)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3221 return;
102897
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3222 if (EQ (font, attrs[LFACE_FONT_INDEX]))
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3223 font = Fcopy_font_spec (font);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3224 ASET (font, prop, Qnil);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3225 if (prop == FONT_FAMILY_INDEX || prop == FONT_FOUNDRY_INDEX)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3226 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3227 if (prop == FONT_FAMILY_INDEX)
101156
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3228 {
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3229 ASET (font, FONT_FOUNDRY_INDEX, Qnil);
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3230 /* If we are setting the font family, we must also clear
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3231 FONT_WIDTH_INDEX to avoid rejecting families that lack
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3232 support for some widths. */
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3233 ASET (font, FONT_WIDTH_INDEX, Qnil);
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3234 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3235 ASET (font, FONT_ADSTYLE_INDEX, Qnil);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3236 ASET (font, FONT_REGISTRY_INDEX, Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3237 ASET (font, FONT_SIZE_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3238 ASET (font, FONT_DPI_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3239 ASET (font, FONT_SPACING_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3240 ASET (font, FONT_AVGWIDTH_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3241 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3242 else if (prop == FONT_SIZE_INDEX)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3243 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3244 ASET (font, FONT_DPI_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3245 ASET (font, FONT_SPACING_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3246 ASET (font, FONT_AVGWIDTH_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3247 }
98717
507c5c477e60 (font_clear_prop): When clearing font width, clear the average width
Chong Yidong <cyd@stupidchicken.com>
parents: 98655
diff changeset
3248 else if (prop == FONT_WIDTH_INDEX)
507c5c477e60 (font_clear_prop): When clearing font width, clear the average width
Chong Yidong <cyd@stupidchicken.com>
parents: 98655
diff changeset
3249 ASET (font, FONT_AVGWIDTH_INDEX, Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3250 attrs[LFACE_FONT_INDEX] = font;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3251 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3252
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3253 void
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3254 font_update_lface (f, attrs)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3255 FRAME_PTR f;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3256 Lisp_Object *attrs;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3257 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3258 Lisp_Object spec;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3259
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3260 spec = attrs[LFACE_FONT_INDEX];
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3261 if (! FONT_SPEC_P (spec))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3262 return;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3263
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3264 if (! NILP (AREF (spec, FONT_FOUNDRY_INDEX)))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3265 attrs[LFACE_FOUNDRY_INDEX] = SYMBOL_NAME (AREF (spec, FONT_FOUNDRY_INDEX));
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3266 if (! NILP (AREF (spec, FONT_FAMILY_INDEX)))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3267 attrs[LFACE_FAMILY_INDEX] = SYMBOL_NAME (AREF (spec, FONT_FAMILY_INDEX));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3268 if (! NILP (AREF (spec, FONT_WEIGHT_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3269 attrs[LFACE_WEIGHT_INDEX] = FONT_WEIGHT_FOR_FACE (spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3270 if (! NILP (AREF (spec, FONT_SLANT_INDEX)))
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101806
diff changeset
3271 attrs[LFACE_SLANT_INDEX] = FONT_SLANT_FOR_FACE (spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3272 if (! NILP (AREF (spec, FONT_WIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3273 attrs[LFACE_SWIDTH_INDEX] = FONT_WIDTH_FOR_FACE (spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3274 if (! NILP (AREF (spec, FONT_SIZE_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3275 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3276 int point;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3277
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3278 if (INTEGERP (AREF (spec, FONT_SIZE_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3279 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3280 Lisp_Object val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3281 int dpi = f->resy;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3282
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3283 val = Ffont_get (spec, QCdpi);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3284 if (! NILP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3285 dpi = XINT (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3286 point = PIXEL_TO_POINT (XINT (AREF (spec, FONT_SIZE_INDEX)) * 10,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3287 dpi);
100167
b80052504b85 Handle fonts with corrupted size specs, i.e. non-int and non-float.
Chong Yidong <cyd@stupidchicken.com>
parents: 100165
diff changeset
3288 attrs[LFACE_HEIGHT_INDEX] = make_number (point);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3289 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3290 else if (FLOATP (AREF (spec, FONT_SIZE_INDEX)))
100167
b80052504b85 Handle fonts with corrupted size specs, i.e. non-int and non-float.
Chong Yidong <cyd@stupidchicken.com>
parents: 100165
diff changeset
3291 {
b80052504b85 Handle fonts with corrupted size specs, i.e. non-int and non-float.
Chong Yidong <cyd@stupidchicken.com>
parents: 100165
diff changeset
3292 point = XFLOAT_DATA (AREF (spec, FONT_SIZE_INDEX)) * 10;
b80052504b85 Handle fonts with corrupted size specs, i.e. non-int and non-float.
Chong Yidong <cyd@stupidchicken.com>
parents: 100165
diff changeset
3293 attrs[LFACE_HEIGHT_INDEX] = make_number (point);
b80052504b85 Handle fonts with corrupted size specs, i.e. non-int and non-float.
Chong Yidong <cyd@stupidchicken.com>
parents: 100165
diff changeset
3294 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3295 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3296 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3297
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3298
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3299 /* Selecte a font from ENTITIES (list of font-entity vectors) that
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3300 supports C and matches best with ATTRS and PIXEL_SIZE. */
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3301
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3302 static Lisp_Object
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3303 font_select_entity (frame, entities, attrs, pixel_size, c)
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3304 Lisp_Object frame, entities, *attrs;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3305 int pixel_size, c;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3306 {
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3307 Lisp_Object font_entity;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3308 Lisp_Object prefer;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3309 int result, i;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3310 FRAME_PTR f = XFRAME (frame);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3311
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3312 if (NILP (XCDR (entities))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3313 && ASIZE (XCAR (entities)) == 1)
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3314 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3315 font_entity = AREF (XCAR (entities), 0);
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3316 if (c < 0
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3317 || (result = font_has_char (f, font_entity, c)) > 0)
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3318 return font_entity;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3319 return Qnil;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3320 }
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3321
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3322 /* Sort fonts by properties specified in ATTRS. */
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3323 prefer = scratch_font_prefer;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3324
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3325 for (i = FONT_WEIGHT_INDEX; i <= FONT_SIZE_INDEX; i++)
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3326 ASET (prefer, i, Qnil);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3327 if (FONTP (attrs[LFACE_FONT_INDEX]))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3328 {
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3329 Lisp_Object face_font = attrs[LFACE_FONT_INDEX];
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3330
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3331 for (i = FONT_WEIGHT_INDEX; i <= FONT_SIZE_INDEX; i++)
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3332 ASET (prefer, i, AREF (face_font, i));
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3333 }
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3334 if (NILP (AREF (prefer, FONT_WEIGHT_INDEX)))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3335 FONT_SET_STYLE (prefer, FONT_WEIGHT_INDEX, attrs[LFACE_WEIGHT_INDEX]);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3336 if (NILP (AREF (prefer, FONT_SLANT_INDEX)))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3337 FONT_SET_STYLE (prefer, FONT_SLANT_INDEX, attrs[LFACE_SLANT_INDEX]);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3338 if (NILP (AREF (prefer, FONT_WIDTH_INDEX)))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3339 FONT_SET_STYLE (prefer, FONT_WIDTH_INDEX, attrs[LFACE_SWIDTH_INDEX]);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3340 ASET (prefer, FONT_SIZE_INDEX, make_number (pixel_size));
102990
a706504f064e (font_sort_entites): Change the meaning of the arg
Kenichi Handa <handa@m17n.org>
parents: 102963
diff changeset
3341
103255
a8e08bcfc3ad (font_sort_entities): Renamed from font_sort_entites.
Kenichi Handa <handa@m17n.org>
parents: 103246
diff changeset
3342 return font_sort_entities (entities, prefer, frame, c);
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3343 }
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3344
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3345 /* Return a font-entity satisfying SPEC and best matching with face's
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3346 font related attributes in ATTRS. C, if not negative, is a
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
3347 character that the entity must support. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3348
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3349 Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3350 font_find_for_lface (f, attrs, spec, c)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3351 FRAME_PTR f;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3352 Lisp_Object *attrs;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3353 Lisp_Object spec;
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
3354 int c;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3355 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3356 Lisp_Object work;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3357 Lisp_Object frame, entities, val;
96200
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3358 Lisp_Object size, foundry[3], *family, registry[3], adstyle[3];
95475
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3359 int pixel_size;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3360 int i, j, k, l;
95888
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3361
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3362 registry[0] = AREF (spec, FONT_REGISTRY_INDEX);
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3363 if (NILP (registry[0]))
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3364 {
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
3365 registry[0] = DEFAULT_ENCODING;
95888
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3366 registry[1] = Qascii_0;
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3367 registry[2] = null_vector;
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3368 }
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3369 else
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3370 registry[1] = null_vector;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3371
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3372 if (c >= 0 && ! NILP (AREF (spec, FONT_REGISTRY_INDEX)))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3373 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3374 struct charset *encoding, *repertory;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3375
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3376 if (font_registry_charsets (AREF (spec, FONT_REGISTRY_INDEX),
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3377 &encoding, &repertory) < 0)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3378 return Qnil;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3379 if (repertory
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3380 && ENCODE_CHAR (repertory, c) == CHARSET_INVALID_CODE (repertory))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3381 return Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3382 else if (c > encoding->max_char)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3383 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3384 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3385
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3386 work = Fcopy_font_spec (spec);
103246
94e71fa6e9ac (font_find_for_lface): Copy SPEC's FONT_TYPE too.
Kenichi Handa <handa@m17n.org>
parents: 103229
diff changeset
3387 ASET (work, FONT_TYPE_INDEX, AREF (spec, FONT_TYPE_INDEX));
90507
4a6034a7c870 (font_find_for_lface): Code optimized.
Kenichi Handa <handa@m17n.org>
parents: 90503
diff changeset
3388 XSETFRAME (frame, f);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3389 size = AREF (spec, FONT_SIZE_INDEX);
95475
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3390 pixel_size = font_pixel_size (f, spec);
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3391 if (pixel_size == 0)
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3392 {
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3393 double pt = XINT (attrs[LFACE_HEIGHT_INDEX]);
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3394
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3395 pixel_size = POINT_TO_PIXEL (pt / 10, f->resy);
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3396 }
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3397 ASET (work, FONT_SIZE_INDEX, Qnil);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3398 foundry[0] = AREF (work, FONT_FOUNDRY_INDEX);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3399 if (! NILP (foundry[0]))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3400 foundry[1] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3401 else if (STRINGP (attrs[LFACE_FOUNDRY_INDEX]))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3402 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3403 val = attrs[LFACE_FOUNDRY_INDEX];
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3404 foundry[0] = font_intern_prop ((char *) SDATA (val), SBYTES (val), 1);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3405 foundry[1] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3406 foundry[2] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3407 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3408 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3409 foundry[0] = Qnil, foundry[1] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3410
96200
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3411 adstyle[0] = AREF (work, FONT_ADSTYLE_INDEX);
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3412 if (! NILP (adstyle[0]))
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3413 adstyle[1] = null_vector;
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3414 else if (FONTP (attrs[LFACE_FONT_INDEX]))
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3415 {
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3416 Lisp_Object face_font = attrs[LFACE_FONT_INDEX];
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3417
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3418 if (! NILP (AREF (face_font, FONT_ADSTYLE_INDEX)))
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3419 {
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3420 adstyle[0] = AREF (face_font, FONT_ADSTYLE_INDEX);
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3421 adstyle[1] = Qnil;
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3422 adstyle[2] = null_vector;
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3423 }
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3424 else
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3425 adstyle[0] = Qnil, adstyle[1] = null_vector;
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3426 }
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3427 else
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3428 adstyle[0] = Qnil, adstyle[1] = null_vector;
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3429
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3430
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3431 val = AREF (work, FONT_FAMILY_INDEX);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3432 if (NILP (val) && STRINGP (attrs[LFACE_FAMILY_INDEX]))
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3433 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3434 val = attrs[LFACE_FAMILY_INDEX];
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3435 val = font_intern_prop ((char *) SDATA (val), SBYTES (val), 1);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3436 }
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3437 if (NILP (val))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3438 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3439 family = alloca ((sizeof family[0]) * 2);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3440 family[0] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3441 family[1] = null_vector; /* terminator. */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3442 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3443 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3444 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3445 Lisp_Object alters
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3446 = Fassoc_string (val, Vface_alternative_font_family_alist,
105095
4adac4895f0f Update comment for HAVE_NS code in font_find_for_lface().
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 104091
diff changeset
3447 /* Font family names are case-sensitive under NS. */
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3448 #ifndef HAVE_NS
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3449 Qt
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3450 #else
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3451 Qnil
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3452 #endif
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3453 );
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3454
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3455 if (! NILP (alters))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3456 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3457 family = alloca ((sizeof family[0]) * (XINT (Flength (alters)) + 2));
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3458 for (i = 0; CONSP (alters); i++, alters = XCDR (alters))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3459 family[i] = XCAR (alters);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3460 if (NILP (AREF (spec, FONT_FAMILY_INDEX)))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3461 family[i++] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3462 family[i] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3463 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3464 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3465 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3466 family = alloca ((sizeof family[0]) * 3);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3467 i = 0;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3468 family[i++] = val;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3469 if (NILP (AREF (spec, FONT_FAMILY_INDEX)))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3470 family[i++] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3471 family[i] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3472 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3473 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3474
95888
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3475 for (i = 0; SYMBOLP (family[i]); i++)
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3476 {
95888
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3477 ASET (work, FONT_FAMILY_INDEX, family[i]);
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3478 for (j = 0; SYMBOLP (foundry[j]); j++)
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3479 {
95888
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3480 ASET (work, FONT_FOUNDRY_INDEX, foundry[j]);
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3481 for (k = 0; SYMBOLP (registry[k]); k++)
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3482 {
95890
e6e6c351339d (font_find_for_lface): Fix typo of the previous change.
Kenichi Handa <handa@m17n.org>
parents: 95888
diff changeset
3483 ASET (work, FONT_REGISTRY_INDEX, registry[k]);
96200
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3484 for (l = 0; SYMBOLP (adstyle[l]); l++)
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3485 {
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3486 ASET (work, FONT_ADSTYLE_INDEX, adstyle[l]);
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3487 entities = font_list_entities (frame, work);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3488 if (! NILP (entities))
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3489 {
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3490 val = font_select_entity (frame, entities,
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3491 attrs, pixel_size, c);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3492 if (! NILP (val))
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3493 return val;
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3494 }
96200
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3495 }
95888
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3496 }
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3497 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3498 }
95888
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3499 return Qnil;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3500 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3501
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3502
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3503 Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3504 font_open_for_lface (f, entity, attrs, spec)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3505 FRAME_PTR f;
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3506 Lisp_Object entity;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3507 Lisp_Object *attrs;
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3508 Lisp_Object spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3509 {
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
3510 int size;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
3511
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3512 if (INTEGERP (AREF (entity, FONT_SIZE_INDEX))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3513 && XINT (AREF (entity, FONT_SIZE_INDEX)) > 0)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3514 size = XINT (AREF (entity, FONT_SIZE_INDEX));
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3515 else if (FONT_SPEC_P (spec) && ! NILP (AREF (spec, FONT_SIZE_INDEX)))
95475
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3516 size = font_pixel_size (f, spec);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3517 else
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3518 {
100985
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3519 double pt;
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3520 if (INTEGERP (attrs[LFACE_HEIGHT_INDEX]))
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3521 pt = XINT (attrs[LFACE_HEIGHT_INDEX]);
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3522 else
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3523 {
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3524 struct face *def = FACE_FROM_ID (f, DEFAULT_FACE_ID);
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3525 Lisp_Object height = def->lface[LFACE_HEIGHT_INDEX];
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3526 if (INTEGERP (height))
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3527 pt = XINT (height);
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3528 else
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3529 abort(); /* We should never end up here. */
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3530 }
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3531
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3532 pt /= 10;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3533 size = POINT_TO_PIXEL (pt, f->resy);
96831
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3534 #ifdef HAVE_NS
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3535 if (size == 0)
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3536 {
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3537 Lisp_Object ffsize = get_frame_param(f, Qfontsize);
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3538 size = NUMBERP (ffsize) ? POINT_TO_PIXEL (XINT (ffsize), f->resy) : 0;
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3539 }
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3540 #endif
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3541 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3542 return font_open_entity (f, entity, size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3543 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3544
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3545
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3546 /* Find a font satisfying SPEC and best matching with face's
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3547 attributes in ATTRS on FRAME, and return the opened
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3548 font-object. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3549
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3550 Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3551 font_load_for_lface (f, attrs, spec)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3552 FRAME_PTR f;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3553 Lisp_Object *attrs, spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3554 {
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3555 Lisp_Object entity, name;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3556
103037
e04bcedc08be (font_load_for_lface): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 103019
diff changeset
3557 entity = font_find_for_lface (f, attrs, spec, -1);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3558 if (NILP (entity))
91350
9673276f310c (font_load_for_face): Handle the case that the font in
Kenichi Handa <handa@m17n.org>
parents: 91337
diff changeset
3559 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3560 /* No font is listed for SPEC, but each font-backend may have
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3561 the different criteria about "font matching". So, try
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3562 it. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3563 entity = font_matching_entity (f, attrs, spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3564 if (NILP (entity))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3565 return Qnil;
91350
9673276f310c (font_load_for_face): Handle the case that the font in
Kenichi Handa <handa@m17n.org>
parents: 91337
diff changeset
3566 }
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3567 /* Don't loose the original name that was put in initially. We need
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3568 it to re-apply the font when font parameters (like hinting or dpi) have
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3569 changed. */
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3570 entity = font_open_for_lface (f, entity, attrs, spec);
106350
08b3f5b6e96d (font_load_for_lface, font_open_by_name): Don't store name
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 106215
diff changeset
3571 if (!NILP (entity))
08b3f5b6e96d (font_load_for_lface, font_open_by_name): Don't store name
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 106215
diff changeset
3572 {
106750
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
3573 name = Ffont_get (spec, QCuser_spec);
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
3574 if (STRINGP (name)) font_put_extra (entity, QCuser_spec, name);
106350
08b3f5b6e96d (font_load_for_lface, font_open_by_name): Don't store name
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 106215
diff changeset
3575 }
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3576 return entity;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3577 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3578
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3579
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3580 /* Make FACE on frame F ready to use the font opened for FACE. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3581
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3582 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3583 font_prepare_for_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3584 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3585 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3586 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3587 if (face->font->driver->prepare_face)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3588 face->font->driver->prepare_face (f, face);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3589 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3590
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3591
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3592 /* Make FACE on frame F stop using the font opened for FACE. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3593
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3594 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3595 font_done_for_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3596 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3597 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3598 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3599 if (face->font->driver->done_face)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3600 face->font->driver->done_face (f, face);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3601 face->extra = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3602 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3603
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3604
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3605 /* Open a font matching with font-spec SPEC on frame F. If no proper
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3606 font is found, return Qnil. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3607
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3608 Lisp_Object
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3609 font_open_by_spec (f, spec)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3610 FRAME_PTR f;
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3611 Lisp_Object spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3612 {
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3613 Lisp_Object attrs[LFACE_VECTOR_SIZE];
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3614
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3615 /* We set up the default font-related attributes of a face to prefer
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3616 a moderate font. */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3617 attrs[LFACE_FAMILY_INDEX] = attrs[LFACE_FOUNDRY_INDEX] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3618 attrs[LFACE_SWIDTH_INDEX] = attrs[LFACE_WEIGHT_INDEX]
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3619 = attrs[LFACE_SLANT_INDEX] = Qnormal;
96831
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3620 #ifndef HAVE_NS
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3621 attrs[LFACE_HEIGHT_INDEX] = make_number (120);
96831
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3622 #else
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3623 attrs[LFACE_HEIGHT_INDEX] = make_number (0);
47bb47a5494d restore ability under NS to change font size from font panel (lost during some recent font backend refactoring)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96675
diff changeset
3624 #endif
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3625 attrs[LFACE_FONT_INDEX] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3626
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3627 return font_load_for_lface (f, attrs, spec);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3628 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3629
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3630
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3631 /* Open a font matching with NAME on frame F. If no proper font is
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3632 found, return Qnil. */
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3633
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3634 Lisp_Object
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3635 font_open_by_name (f, name)
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3636 FRAME_PTR f;
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3637 char *name;
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3638 {
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3639 Lisp_Object args[2];
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
3640 Lisp_Object spec, ret;
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3641
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3642 args[0] = QCname;
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3643 args[1] = make_unibyte_string (name, strlen (name));
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3644 spec = Ffont_spec (2, args);
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
3645 ret = font_open_by_spec (f, spec);
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
3646 /* Do not loose name originally put in. */
106350
08b3f5b6e96d (font_load_for_lface, font_open_by_name): Don't store name
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 106215
diff changeset
3647 if (!NILP (ret))
106750
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
3648 font_put_extra (ret, QCuser_spec, args[1]);
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
3649
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
3650 return ret;
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3651 }
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3652
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3653
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3654 /* Register font-driver DRIVER. This function is used in two ways.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3655
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3656 The first is with frame F non-NULL. In this case, make DRIVER
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3657 available (but not yet activated) on F. All frame creaters
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3658 (e.g. Fx_create_frame) must call this function at least once with
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3659 an available font-driver.
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3660
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3661 The second is with frame F NULL. In this case, DRIVER is globally
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3662 registered in the variable `font_driver_list'. All font-driver
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3663 implementations must call this function in its syms_of_XXXX
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3664 (e.g. syms_of_xfont). */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3665
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3666 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3667 register_font_driver (driver, f)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3668 struct font_driver *driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3669 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3670 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3671 struct font_driver_list *root = f ? f->font_driver_list : font_driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3672 struct font_driver_list *prev, *list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3673
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3674 if (f && ! driver->draw)
92113
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
3675 error ("Unusable font driver for a frame: %s",
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3676 SDATA (SYMBOL_NAME (driver->type)));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3677
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3678 for (prev = NULL, list = root; list; prev = list, list = list->next)
90695
a1cd7344d6a2 (font_parse_xlfd): Fix the array size of `f'.
Kenichi Handa <handa@m17n.org>
parents: 90677
diff changeset
3679 if (EQ (list->driver->type, driver->type))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3680 error ("Duplicated font driver: %s", SDATA (SYMBOL_NAME (driver->type)));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3681
100103
c2ef1c8b2d64 (register_font_driver): Use xmalloc.
Andreas Schwab <schwab@suse.de>
parents: 99076
diff changeset
3682 list = xmalloc (sizeof (struct font_driver_list));
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3683 list->on = 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3684 list->driver = driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3685 list->next = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3686 if (prev)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3687 prev->next = list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3688 else if (f)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3689 f->font_driver_list = list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3690 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3691 font_driver_list = list;
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
3692 if (! f)
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
3693 num_font_drivers++;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3694 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3695
100406
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3696 void
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3697 free_font_driver_list (f)
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3698 FRAME_PTR f;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3699 {
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3700 struct font_driver_list *list, *next;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3701
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3702 for (list = f->font_driver_list; list; list = next)
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3703 {
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3704 next = list->next;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3705 xfree (list);
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3706 }
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3707 f->font_driver_list = NULL;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3708 }
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3709
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3710
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3711 /* Make the frame F use font backends listed in NEW_DRIVERS (list of
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
3712 symbols, e.g. xft, x). If NEW_DRIVERS is t, make F use all
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
3713 available font drivers. If NEW_DRIVERS is nil, finalize all drivers.
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
3714
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
3715 A caller must free all realized faces if any in advance. The
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
3716 return value is a list of font backends actually made used on
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
3717 F. */
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
3718
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
3719 Lisp_Object
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
3720 font_update_drivers (f, new_drivers)
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3721 FRAME_PTR f;
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3722 Lisp_Object new_drivers;
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3723 {
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3724 Lisp_Object active_drivers = Qnil;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3725 struct font_driver *driver;
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3726 struct font_driver_list *list;
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3727
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3728 /* At first, turn off non-requested drivers, and turn on requested
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3729 drivers. */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3730 for (list = f->font_driver_list; list; list = list->next)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3731 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3732 driver = list->driver;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3733 if ((EQ (new_drivers, Qt) || ! NILP (Fmemq (driver->type, new_drivers)))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3734 != list->on)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3735 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3736 if (list->on)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3737 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3738 if (driver->end_for_frame)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3739 driver->end_for_frame (f);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3740 font_finish_cache (f, driver);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3741 list->on = 0;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3742 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3743 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3744 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3745 if (! driver->start_for_frame
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3746 || driver->start_for_frame (f) == 0)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3747 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3748 font_prepare_cache (f, driver);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3749 list->on = 1;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3750 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3751 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3752 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3753 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3754
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3755 if (NILP (new_drivers))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3756 return Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3757
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3758 if (! EQ (new_drivers, Qt))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3759 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3760 /* Re-order the driver list according to new_drivers. */
95958
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3761 struct font_driver_list **list_table, **next;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3762 Lisp_Object tail;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3763 int i;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3764
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3765 list_table = alloca (sizeof list_table[0] * (num_font_drivers + 1));
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3766 for (i = 0, tail = new_drivers; ! NILP (tail); tail = XCDR (tail))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3767 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3768 for (list = f->font_driver_list; list; list = list->next)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3769 if (list->on && EQ (list->driver->type, XCAR (tail)))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3770 break;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3771 if (list)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3772 list_table[i++] = list;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3773 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3774 for (list = f->font_driver_list; list; list = list->next)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3775 if (! list->on)
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
3776 list_table[i++] = list;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3777 list_table[i] = NULL;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3778
95958
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3779 next = &f->font_driver_list;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3780 for (i = 0; list_table[i]; i++)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3781 {
95958
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3782 *next = list_table[i];
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3783 next = &(*next)->next;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3784 }
95958
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3785 *next = NULL;
103162
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3786
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3787 if (! f->font_driver_list->on)
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3788 { /* None of the drivers is enabled: enable them all.
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3789 Happens if you set the list of drivers to (xft x) in your .emacs
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3790 and then use it under w32 or ns. */
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3791 for (list = f->font_driver_list; list; list = list->next)
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3792 {
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3793 struct font_driver *driver = list->driver;
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3794 eassert (! list->on);
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3795 if (! driver->start_for_frame
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3796 || driver->start_for_frame (f) == 0)
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3797 {
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3798 font_prepare_cache (f, driver);
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3799 list->on = 1;
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3800 }
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3801 }
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3802 }
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3803 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3804
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3805 for (list = f->font_driver_list; list; list = list->next)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3806 if (list->on)
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3807 active_drivers = nconc2 (active_drivers,
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3808 Fcons (list->driver->type, Qnil));
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
3809 return active_drivers;
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3810 }
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3811
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3812 int
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3813 font_put_frame_data (f, driver, data)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3814 FRAME_PTR f;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3815 struct font_driver *driver;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3816 void *data;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3817 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3818 struct font_data_list *list, *prev;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3819
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3820 for (prev = NULL, list = f->font_data_list; list;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3821 prev = list, list = list->next)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3822 if (list->driver == driver)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3823 break;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3824 if (! data)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3825 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3826 if (list)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3827 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3828 if (prev)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3829 prev->next = list->next;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3830 else
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3831 f->font_data_list = list->next;
103019
413229f94ec7 (font_put_frame_data): Use xfree instead of free.
Andreas Schwab <schwab@linux-m68k.org>
parents: 103011
diff changeset
3832 xfree (list);
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3833 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3834 return 0;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3835 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3836
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3837 if (! list)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3838 {
100103
c2ef1c8b2d64 (register_font_driver): Use xmalloc.
Andreas Schwab <schwab@suse.de>
parents: 99076
diff changeset
3839 list = xmalloc (sizeof (struct font_data_list));
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3840 list->driver = driver;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3841 list->next = f->font_data_list;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3842 f->font_data_list = list;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3843 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3844 list->data = data;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3845 return 0;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3846 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3847
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3848
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3849 void *
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3850 font_get_frame_data (f, driver)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3851 FRAME_PTR f;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3852 struct font_driver *driver;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3853 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3854 struct font_data_list *list;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3855
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3856 for (list = f->font_data_list; list; list = list->next)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3857 if (list->driver == driver)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3858 break;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3859 if (! list)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3860 return NULL;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3861 return list->data;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3862 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3863
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3864
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3865 /* Return the font used to draw character C by FACE at buffer position
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3866 POS in window W. If STRING is non-nil, it is a string containing C
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3867 at index POS. If C is negative, get C from the current buffer or
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3868 STRING. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3869
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3870 Lisp_Object
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3871 font_at (c, pos, face, w, string)
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3872 int c;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3873 EMACS_INT pos;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3874 struct face *face;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3875 struct window *w;
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3876 Lisp_Object string;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3877 {
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3878 FRAME_PTR f;
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3879 int multibyte;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3880 Lisp_Object font_object;
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3881
100173
d704965776e6 (font_at): Set `multibyte' at first.
Kenichi Handa <handa@m17n.org>
parents: 100167
diff changeset
3882 multibyte = (NILP (string)
d704965776e6 (font_at): Set `multibyte' at first.
Kenichi Handa <handa@m17n.org>
parents: 100167
diff changeset
3883 ? ! NILP (current_buffer->enable_multibyte_characters)
d704965776e6 (font_at): Set `multibyte' at first.
Kenichi Handa <handa@m17n.org>
parents: 100167
diff changeset
3884 : STRING_MULTIBYTE (string));
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3885 if (c < 0)
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3886 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3887 if (NILP (string))
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3888 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3889 if (multibyte)
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3890 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3891 EMACS_INT pos_byte = CHAR_TO_BYTE (pos);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3892
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3893 c = FETCH_CHAR (pos_byte);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3894 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3895 else
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3896 c = FETCH_BYTE (pos);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3897 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3898 else
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3899 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3900 unsigned char *str;
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3901
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3902 multibyte = STRING_MULTIBYTE (string);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3903 if (multibyte)
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3904 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3905 EMACS_INT pos_byte = string_char_to_byte (string, pos);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3906
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3907 str = SDATA (string) + pos_byte;
106185
f2cea199b0c4 * character.h (STRING_CHAR, STRING_CHAR_AND_LENGTH): Remove
Andreas Schwab <schwab@linux-m68k.org>
parents: 106085
diff changeset
3908 c = STRING_CHAR (str);
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3909 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3910 else
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3911 c = SDATA (string)[pos];
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3912 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3913 }
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3914
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3915 f = XFRAME (w->frame);
90811
c1ed0fd37416 (font_at): If the window W is not on a window system,
Kenichi Handa <handa@m17n.org>
parents: 90695
diff changeset
3916 if (! FRAME_WINDOW_P (f))
c1ed0fd37416 (font_at): If the window W is not on a window system,
Kenichi Handa <handa@m17n.org>
parents: 90695
diff changeset
3917 return Qnil;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3918 if (! face)
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3919 {
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3920 int face_id;
92237
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92233
diff changeset
3921 EMACS_INT endptr;
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3922
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3923 if (STRINGP (string))
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3924 face_id = face_at_string_position (w, string, pos, 0, -1, -1, &endptr,
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3925 DEFAULT_FACE_ID, 0);
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3926 else
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3927 face_id = face_at_buffer_position (w, pos, -1, -1, &endptr,
103114
fa8e2c663118 * xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents: 103041
diff changeset
3928 pos + 100, 0, -1);
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3929 face = FACE_FROM_ID (f, face_id);
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3930 }
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3931 if (multibyte)
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3932 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3933 int face_id = FACE_FOR_CHAR (f, face, c, pos, string);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3934 face = FACE_FROM_ID (f, face_id);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3935 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3936 if (! face->font)
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3937 return Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3938
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3939 XSETFONT (font_object, face->font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3940 return font_object;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3941 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3942
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3943
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3944 #ifdef HAVE_WINDOW_SYSTEM
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3945
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3946 /* Check how many characters after POS (at most to *LIMIT) can be
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3947 displayed by the same font on the window W. FACE, if non-NULL, is
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3948 the face selected for the character at POS. If STRING is not nil,
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3949 it is the string to check instead of the current buffer. In that
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3950 case, FACE must be not NULL.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3951
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3952 The return value is the font-object for the character at POS.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3953 *LIMIT is set to the position where that font can't be used.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3954
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3955 It is assured that the current buffer (or STRING) is multibyte. */
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3956
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3957 Lisp_Object
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3958 font_range (pos, limit, w, face, string)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3959 EMACS_INT pos, *limit;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3960 struct window *w;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3961 struct face *face;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3962 Lisp_Object string;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3963 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3964 EMACS_INT pos_byte, ignore, start, start_byte;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3965 int c;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3966 Lisp_Object font_object = Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3967
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3968 if (NILP (string))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3969 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3970 pos_byte = CHAR_TO_BYTE (pos);
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3971 if (! face)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3972 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3973 int face_id;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3974
103114
fa8e2c663118 * xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents: 103041
diff changeset
3975 face_id = face_at_buffer_position (w, pos, 0, 0, &ignore,
fa8e2c663118 * xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents: 103041
diff changeset
3976 *limit, 0, -1);
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3977 face = FACE_FROM_ID (XFRAME (w->frame), face_id);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3978 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3979 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3980 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3981 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3982 font_assert (face);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3983 pos_byte = string_char_to_byte (string, pos);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3984 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3985
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3986 start = pos, start_byte = pos_byte;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3987 while (pos < *limit)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3988 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3989 Lisp_Object category;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3990
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3991 if (NILP (string))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3992 FETCH_CHAR_ADVANCE_NO_CHECK (c, pos, pos_byte);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3993 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3994 FETCH_STRING_CHAR_ADVANCE_NO_CHECK (c, string, pos, pos_byte);
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3995 if (NILP (font_object))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3996 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3997 font_object = font_for_char (face, c, pos - 1, string);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3998 if (NILP (font_object))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3999 return Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4000 continue;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4001 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4002
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4003 category = CHAR_TABLE_REF (Vunicode_category_table, c);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4004 if (! EQ (category, QCf)
100793
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4005 && ! CHAR_VARIATION_SELECTOR_P (c)
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4006 && font_encode_char (font_object, c) == FONT_INVALID_CODE)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4007 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4008 Lisp_Object f = font_for_char (face, c, pos - 1, string);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4009 EMACS_INT i, i_byte;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4010
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4011
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4012 if (NILP (f))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4013 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4014 *limit = pos - 1;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4015 return font_object;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4016 }
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4017 i = start, i_byte = start_byte;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4018 while (i < pos - 1)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4019 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4020
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4021 if (NILP (string))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4022 FETCH_CHAR_ADVANCE_NO_CHECK (c, i, i_byte);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4023 else
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4024 FETCH_STRING_CHAR_ADVANCE_NO_CHECK (c, string, i, i_byte);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4025 category = CHAR_TABLE_REF (Vunicode_category_table, c);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4026 if (! EQ (category, QCf)
100793
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4027 && ! CHAR_VARIATION_SELECTOR_P (c)
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4028 && font_encode_char (f, c) == FONT_INVALID_CODE)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4029 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4030 *limit = pos - 1;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4031 return font_object;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4032 }
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4033 }
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4034 font_object = f;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4035 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4036 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4037 return font_object;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4038 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4039 #endif
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4040
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4041
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4042 /* Lisp API */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4043
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4044 DEFUN ("fontp", Ffontp, Sfontp, 1, 2, 0,
91353
b93ade1a3602 (font_find_for_lface): Check if the character C is
Kenichi Handa <handa@m17n.org>
parents: 91350
diff changeset
4045 doc: /* Return t if OBJECT is a font-spec, font-entity, or font-object.
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4046 Return nil otherwise.
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4047 Optional 2nd argument EXTRA-TYPE, if non-nil, specifies to check
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4048 which kind of font it is. It must be one of `font-spec', `font-entity',
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4049 `font-object'. */)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4050 (object, extra_type)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4051 Lisp_Object object, extra_type;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4052 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4053 if (NILP (extra_type))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4054 return (FONTP (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4055 if (EQ (extra_type, Qfont_spec))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4056 return (FONT_SPEC_P (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4057 if (EQ (extra_type, Qfont_entity))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4058 return (FONT_ENTITY_P (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4059 if (EQ (extra_type, Qfont_object))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4060 return (FONT_OBJECT_P (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4061 wrong_type_argument (intern ("font-extra-type"), extra_type);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4062 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4063
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4064 DEFUN ("font-spec", Ffont_spec, Sfont_spec, 0, MANY, 0,
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4065 doc: /* Return a newly created font-spec with arguments as properties.
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4066
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4067 ARGS must come in pairs KEY VALUE of font properties. KEY must be a
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4068 valid font property name listed below:
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4069
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4070 `:family', `:weight', `:slant', `:width'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4071
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4072 They are the same as face attributes of the same name. See
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4073 `set-face-attribute'.
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4074
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4075 `:foundry'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4076
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4077 VALUE must be a string or a symbol specifying the font foundry, e.g. ``misc''.
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4078
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4079 `:adstyle'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4080
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4081 VALUE must be a string or a symbol specifying the additional
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4082 typographic style information of a font, e.g. ``sans''.
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4083
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4084 `:registry'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4085
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4086 VALUE must be a string or a symbol specifying the charset registry and
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4087 encoding of a font, e.g. ``iso8859-1''.
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4088
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4089 `:size'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4090
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4091 VALUE must be a non-negative integer or a floating point number
102082
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4092 specifying the font size. It specifies the font size in pixels (if
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4093 VALUE is an integer), or in points (if VALUE is a float).
96010
c0401e586ca3 (Ffont_get): Return a symbol for :weight, :slant, and :width.
Kenichi Handa <handa@m17n.org>
parents: 96005
diff changeset
4094
c0401e586ca3 (Ffont_get): Return a symbol for :weight, :slant, and :width.
Kenichi Handa <handa@m17n.org>
parents: 96005
diff changeset
4095 `:name'
c0401e586ca3 (Ffont_get): Return a symbol for :weight, :slant, and :width.
Kenichi Handa <handa@m17n.org>
parents: 96005
diff changeset
4096
96013
04be82e0cbd3 (Ffont_spec): Fix usage in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 96012
diff changeset
4097 VALUE must be a string of XLFD-style or fontconfig-style font name.
99075
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4098
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4099 `:script'
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4100
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4101 VALUE must be a symbol representing a script that the font must
101806
73703b41e43a (Ffont_spec): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 101422
diff changeset
4102 support. It may be a symbol representing a subgroup of a script
73703b41e43a (Ffont_spec): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 101422
diff changeset
4103 listed in the variable `script-representative-chars'.
102082
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4104
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4105 `:lang'
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4106
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4107 VALUE must be a symbol of two-letter ISO-639 language names,
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4108 e.g. `ja'.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4109
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4110 `:otf'
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4111
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4112 VALUE must be a list (SCRIPT-TAG LANGSYS-TAG GSUB [ GPOS ]) to specify
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4113 required OpenType features.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4114
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4115 SCRIPT-TAG: OpenType script tag symbol (e.g. `deva').
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4116 LANGSYS-TAG: OpenType language system tag symbol,
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4117 or nil for the default language system.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4118 GSUB: List of OpenType GSUB feature tag symbols, or nil if none required.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4119 GPOS: List of OpenType GPOS feature tag symbols, or nil if none required.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4120
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4121 GSUB and GPOS may contain `nil' element. In such a case, the font
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4122 must not have any of the remaining elements.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4123
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4124 For instance, if the VALUE is `(thai nil nil (mark))', the font must
102085
8c447b83d140 (Ffont_spec): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 102082
diff changeset
4125 be an OpenType font, and whose GPOS table of `thai' script's default
102082
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4126 language system must contain `mark' feature.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4127
100336
d53183123ad7 * font.c (Ffont_spec): Move usage to end of docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 100173
diff changeset
4128 usage: (font-spec ARGS...) */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4129 (nargs, args)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4130 int nargs;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4131 Lisp_Object *args;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4132 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4133 Lisp_Object spec = font_make_spec ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4134 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4135
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4136 for (i = 0; i < nargs; i += 2)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4137 {
103229
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4138 Lisp_Object key = args[i], val;
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4139
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4140 CHECK_SYMBOL (key);
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4141 if (i + 1 >= nargs)
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4142 error ("No value for key `%s'", SDATA (SYMBOL_NAME (key)));
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4143 val = args[i + 1];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4144
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4145 if (EQ (key, QCname))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4146 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4147 CHECK_STRING (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4148 font_parse_name ((char *) SDATA (val), spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4149 font_put_extra (spec, key, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4150 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4151 else
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
4152 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4153 int idx = get_font_prop_index (key);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4154
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4155 if (idx >= 0)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4156 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4157 val = font_prop_validate (idx, Qnil, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4158 if (idx < FONT_EXTRA_INDEX)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4159 ASET (spec, idx, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4160 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4161 font_put_extra (spec, key, val);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4162 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4163 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4164 font_put_extra (spec, key, font_prop_validate (0, key, val));
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
4165 }
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
4166 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4167 return spec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4168 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4169
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4170 DEFUN ("copy-font-spec", Fcopy_font_spec, Scopy_font_spec, 1, 1, 0,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4171 doc: /* Return a copy of FONT as a font-spec. */)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4172 (font)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4173 Lisp_Object font;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4174 {
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4175 Lisp_Object new_spec, tail, prev, extra;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4176 int i;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4177
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4178 CHECK_FONT (font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4179 new_spec = font_make_spec ();
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4180 for (i = 1; i < FONT_EXTRA_INDEX; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4181 ASET (new_spec, i, AREF (font, i));
106201
01190029e5d3 Set Xft defaults if no XSETTING is found, better default for Gtk+ font dialog.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106185
diff changeset
4182 extra = Fcopy_alist (AREF (font, FONT_EXTRA_INDEX));
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4183 /* We must remove :font-entity property. */
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4184 for (prev = Qnil, tail = extra; CONSP (tail); prev = tail, tail = XCDR (tail))
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4185 if (EQ (XCAR (XCAR (tail)), QCfont_entity))
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4186 {
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4187 if (NILP (prev))
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4188 extra = XCDR (extra);
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4189 else
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4190 XSETCDR (prev, XCDR (tail));
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4191 break;
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4192 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4193 ASET (new_spec, FONT_EXTRA_INDEX, extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4194 return new_spec;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4195 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4196
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4197 DEFUN ("merge-font-spec", Fmerge_font_spec, Smerge_font_spec, 2, 2, 0,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4198 doc: /* Merge font-specs FROM and TO, and return a new font-spec.
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4199 Every specified properties in FROM override the corresponding
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4200 properties in TO. */)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4201 (from, to)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4202 Lisp_Object from, to;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4203 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4204 Lisp_Object extra, tail;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4205 int i;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4206
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4207 CHECK_FONT (from);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4208 CHECK_FONT (to);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4209 to = Fcopy_font_spec (to);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4210 for (i = 0; i < FONT_EXTRA_INDEX; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4211 ASET (to, i, AREF (from, i));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4212 extra = AREF (to, FONT_EXTRA_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4213 for (tail = AREF (from, FONT_EXTRA_INDEX); CONSP (tail); tail = XCDR (tail))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4214 if (! EQ (XCAR (XCAR (tail)), Qfont_entity))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4215 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4216 Lisp_Object slot = assq_no_quit (XCAR (XCAR (tail)), extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4217
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4218 if (! NILP (slot))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4219 XSETCDR (slot, XCDR (XCAR (tail)));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4220 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4221 extra = Fcons (Fcons (XCAR (XCAR (tail)), XCDR (XCAR (tail))), extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4222 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4223 ASET (to, FONT_EXTRA_INDEX, extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4224 return to;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4225 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4226
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4227 DEFUN ("font-get", Ffont_get, Sfont_get, 2, 2, 0,
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4228 doc: /* Return the value of FONT's property KEY.
99075
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4229 FONT is a font-spec, a font-entity, or a font-object.
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4230 KEY must be one of these symbols:
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4231 :family, :weight, :slant, :width, :foundry, :adstyle, :registry,
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4232 :size, :name, :script
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4233 See the documentation of `font-spec' for their meanings.
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4234 If FONT is a font-entity or font-object, the value of :script may be
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4235 a list of scripts that are supported by the font. */)
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4236 (font, key)
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4237 Lisp_Object font, key;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4238 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4239 int idx;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4240
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4241 CHECK_FONT (font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4242 CHECK_SYMBOL (key);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4243
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4244 idx = get_font_prop_index (key);
96010
c0401e586ca3 (Ffont_get): Return a symbol for :weight, :slant, and :width.
Kenichi Handa <handa@m17n.org>
parents: 96005
diff changeset
4245 if (idx >= FONT_WEIGHT_INDEX && idx <= FONT_WIDTH_INDEX)
c0401e586ca3 (Ffont_get): Return a symbol for :weight, :slant, and :width.
Kenichi Handa <handa@m17n.org>
parents: 96005
diff changeset
4246 return font_style_symbolic (font, idx, 0);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4247 if (idx >= 0 && idx < FONT_EXTRA_INDEX)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4248 return AREF (font, idx);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4249 return Fcdr (Fassq (key, AREF (font, FONT_EXTRA_INDEX)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4250 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4251
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4252 #ifdef HAVE_WINDOW_SYSTEM
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4253
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4254 DEFUN ("font-face-attributes", Ffont_face_attributes, Sfont_face_attributes, 1, 2, 0,
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4255 doc: /* Return a plist of face attributes generated by FONT.
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4256 FONT is a font name, a font-spec, a font-entity, or a font-object.
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4257 The return value is a list of the form
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4258
96012
c04088bb7b0d (Ffont_face_attributes): Fix definition.
Andreas Schwab <schwab@suse.de>
parents: 96010
diff changeset
4259 \(:family FAMILY :height HEIGHT :weight WEIGHT :slant SLANT :width WIDTH)
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4260
96014
f4a50aac009c (Ffont_face_attributes): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 96013
diff changeset
4261 where FAMILY, HEIGHT, WEIGHT, SLANT, and WIDTH are face attribute values
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4262 compatible with `set-face-attribute'. Some of these key-attribute pairs
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4263 may be omitted from the list if they are not specified by FONT.
96014
f4a50aac009c (Ffont_face_attributes): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 96013
diff changeset
4264
f4a50aac009c (Ffont_face_attributes): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 96013
diff changeset
4265 The optional argument FRAME specifies the frame that the face attributes
f4a50aac009c (Ffont_face_attributes): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 96013
diff changeset
4266 are to be displayed on. If omitted, the selected frame is used. */)
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4267 (font, frame)
96012
c04088bb7b0d (Ffont_face_attributes): Fix definition.
Andreas Schwab <schwab@suse.de>
parents: 96010
diff changeset
4268 Lisp_Object font, frame;
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4269 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4270 struct frame *f;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4271 Lisp_Object plist[10];
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4272 Lisp_Object val;
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4273 int n = 0;
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4274
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4275 if (NILP (frame))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4276 frame = selected_frame;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4277 CHECK_LIVE_FRAME (frame);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4278 f = XFRAME (frame);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4279
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4280 if (STRINGP (font))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4281 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4282 int fontset = fs_query_fontset (font, 0);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4283 Lisp_Object name = font;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4284 if (fontset >= 0)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4285 font = fontset_ascii (fontset);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4286 font = font_spec_from_name (name);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4287 if (! FONTP (font))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4288 signal_error ("Invalid font name", name);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4289 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4290 else if (! FONTP (font))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4291 signal_error ("Invalid font object", font);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4292
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4293 val = AREF (font, FONT_FAMILY_INDEX);
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4294 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4295 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4296 plist[n++] = QCfamily;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4297 plist[n++] = SYMBOL_NAME (val);
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4298 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4299
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4300 val = AREF (font, FONT_SIZE_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4301 if (INTEGERP (val))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4302 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4303 Lisp_Object font_dpi = AREF (font, FONT_DPI_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4304 int dpi = INTEGERP (font_dpi) ? XINT (font_dpi) : f->resy;
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4305 plist[n++] = QCheight;
96227
f9eb9f0d6678 (Ffont_face_attributes): Multiply pixel size before point
Jason Rumney <jasonr@gnu.org>
parents: 96224
diff changeset
4306 plist[n++] = make_number (PIXEL_TO_POINT (XINT (val) * 10, dpi));
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4307 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4308 else if (FLOATP (val))
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4309 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4310 plist[n++] = QCheight;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4311 plist[n++] = make_number (10 * (int) XFLOAT_DATA (val));
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4312 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4313
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4314 val = FONT_WEIGHT_FOR_FACE (font);
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4315 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4316 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4317 plist[n++] = QCweight;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4318 plist[n++] = val;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4319 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4320
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4321 val = FONT_SLANT_FOR_FACE (font);
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4322 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4323 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4324 plist[n++] = QCslant;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4325 plist[n++] = val;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4326 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4327
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4328 val = FONT_WIDTH_FOR_FACE (font);
96136
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4329 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4330 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4331 plist[n++] = QCwidth;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4332 plist[n++] = val;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4333 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4334
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4335 return Flist (n, plist);
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4336 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4337
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4338 #endif
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4339
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4340 DEFUN ("font-put", Ffont_put, Sfont_put, 3, 3, 0,
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4341 doc: /* Set one property of FONT-SPEC: give property PROP value VAL. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4342 (font_spec, prop, val)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4343 Lisp_Object font_spec, prop, val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4344 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4345 int idx;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4346
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4347 CHECK_FONT_SPEC (font_spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4348 idx = get_font_prop_index (prop);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4349 if (idx >= 0 && idx < FONT_EXTRA_INDEX)
95573
0da1a8e03099 (Ffont_put): Don't use font_parse_family_registry for
Kenichi Handa <handa@m17n.org>
parents: 95572
diff changeset
4350 ASET (font_spec, idx, font_prop_validate (idx, Qnil, val));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4351 else
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4352 font_put_extra (font_spec, prop, font_prop_validate (0, prop, val));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4353 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4354 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4355
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4356 DEFUN ("list-fonts", Flist_fonts, Slist_fonts, 1, 4, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4357 doc: /* List available fonts matching FONT-SPEC on the current frame.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4358 Optional 2nd argument FRAME specifies the target frame.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4359 Optional 3rd argument NUM, if non-nil, limits the number of returned fonts.
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4360 Optional 4th argument PREFER, if non-nil, is a font-spec to
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4361 control the order of the returned list. Fonts are sorted by
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4362 how close they are to PREFER. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4363 (font_spec, frame, num, prefer)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4364 Lisp_Object font_spec, frame, num, prefer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4365 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4366 Lisp_Object vec, list;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4367 int n = 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4368
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4369 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4370 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4371 CHECK_LIVE_FRAME (frame);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4372 CHECK_FONT_SPEC (font_spec);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4373 if (! NILP (num))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4374 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4375 CHECK_NUMBER (num);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4376 n = XINT (num);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4377 if (n <= 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4378 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4379 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4380 if (! NILP (prefer))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4381 CHECK_FONT_SPEC (prefer);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4382
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4383 list = font_list_entities (frame, font_spec);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4384 if (NILP (list))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4385 return Qnil;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4386 if (NILP (XCDR (list))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4387 && ASIZE (XCAR (list)) == 1)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4388 return Fcons (AREF (XCAR (list), 0), Qnil);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4389
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4390 if (! NILP (prefer))
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4391 vec = font_sort_entities (list, prefer, frame, 0);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4392 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4393 vec = font_vconcat_entity_vectors (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4394 if (n == 0 || n >= ASIZE (vec))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4395 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4396 Lisp_Object args[2];
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4397
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4398 args[0] = vec;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4399 args[1] = Qnil;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4400 list = Fappend (2, args);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4401 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4402 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4403 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4404 for (list = Qnil, n--; n >= 0; n--)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4405 list = Fcons (AREF (vec, n), list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4406 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4407 return list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4408 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4409
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4410 DEFUN ("font-family-list", Ffont_family_list, Sfont_family_list, 0, 1, 0,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4411 doc: /* List available font families on the current frame.
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4412 Optional argument FRAME, if non-nil, specifies the target frame. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4413 (frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4414 Lisp_Object frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4415 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4416 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4417 struct font_driver_list *driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4418 Lisp_Object list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4419
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4420 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4421 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4422 CHECK_LIVE_FRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4423 f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4424 list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4425 for (driver_list = f->font_driver_list; driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4426 driver_list = driver_list->next)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4427 if (driver_list->driver->list_family)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4428 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4429 Lisp_Object val = driver_list->driver->list_family (frame);
101028
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4430 Lisp_Object tail = list;
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4431
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4432 for (; CONSP (val); val = XCDR (val))
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4433 if (NILP (Fmemq (XCAR (val), tail))
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4434 && SYMBOLP (XCAR (val)))
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4435 list = Fcons (SYMBOL_NAME (XCAR (val)), list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4436 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4437 return list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4438 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4439
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4440 DEFUN ("find-font", Ffind_font, Sfind_font, 1, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4441 doc: /* Return a font-entity matching with FONT-SPEC on the current frame.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4442 Optional 2nd argument FRAME, if non-nil, specifies the target frame. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4443 (font_spec, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4444 Lisp_Object font_spec, frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4445 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4446 Lisp_Object val = Flist_fonts (font_spec, frame, make_number (1), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4447
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4448 if (CONSP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4449 val = XCAR (val);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4450 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4451 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4452
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4453 DEFUN ("font-xlfd-name", Ffont_xlfd_name, Sfont_xlfd_name, 1, 2, 0,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4454 doc: /* Return XLFD name of FONT.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4455 FONT is a font-spec, font-entity, or font-object.
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4456 If the name is too long for XLFD (maximum 255 chars), return nil.
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4457 If the 2nd optional arg FOLD-WILDCARDS is non-nil,
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4458 the consecutive wildcards are folded to one. */)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4459 (font, fold_wildcards)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4460 Lisp_Object font, fold_wildcards;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4461 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4462 char name[256];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4463 int pixel_size = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4464
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4465 CHECK_FONT (font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4466
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4467 if (FONT_OBJECT_P (font))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4468 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4469 Lisp_Object font_name = AREF (font, FONT_NAME_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4470
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4471 if (STRINGP (font_name)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4472 && SDATA (font_name)[0] == '-')
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4473 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4474 if (NILP (fold_wildcards))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4475 return font_name;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4476 strcpy (name, (char *) SDATA (font_name));
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4477 goto done;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4478 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4479 pixel_size = XFONT_OBJECT (font)->pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4480 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4481 if (font_unparse_xlfd (font, pixel_size, name, 256) < 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4482 return Qnil;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4483 done:
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4484 if (! NILP (fold_wildcards))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4485 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4486 char *p0 = name, *p1;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4487
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4488 while ((p1 = strstr (p0, "-*-*")))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4489 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4490 strcpy (p1, p1 + 2);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4491 p0 = p1;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4492 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4493 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4494
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4495 return build_string (name);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4496 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4497
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4498 DEFUN ("clear-font-cache", Fclear_font_cache, Sclear_font_cache, 0, 0, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4499 doc: /* Clear font cache. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4500 ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4501 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4502 Lisp_Object list, frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4503
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4504 FOR_EACH_FRAME (list, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4505 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4506 FRAME_PTR f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4507 struct font_driver_list *driver_list = f->font_driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4508
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4509 for (; driver_list; driver_list = driver_list->next)
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4510 if (driver_list->on)
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4511 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4512 Lisp_Object cache = driver_list->driver->get_cache (f);
106618
431b202f351d (Fclear_font_cache): Pass correct cache argument to
Andreas Schwab <schwab@linux-m68k.org>
parents: 106433
diff changeset
4513 Lisp_Object val, tmp;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4514
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4515 val = XCDR (cache);
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
4516 while (! NILP (val)
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
4517 && ! EQ (XCAR (XCAR (val)), driver_list->driver->type))
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4518 val = XCDR (val);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4519 font_assert (! NILP (val));
106618
431b202f351d (Fclear_font_cache): Pass correct cache argument to
Andreas Schwab <schwab@linux-m68k.org>
parents: 106433
diff changeset
4520 tmp = XCDR (XCAR (val));
431b202f351d (Fclear_font_cache): Pass correct cache argument to
Andreas Schwab <schwab@linux-m68k.org>
parents: 106433
diff changeset
4521 if (XINT (XCAR (tmp)) == 0)
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4522 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4523 font_clear_cache (f, XCAR (val), driver_list->driver);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4524 XSETCDR (cache, XCDR (val));
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4525 }
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4526 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4527 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4528
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4529 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4530 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4531
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4532
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4533 void
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4534 font_fill_lglyph_metrics (glyph, font_object)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4535 Lisp_Object glyph, font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4536 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4537 struct font *font = XFONT_OBJECT (font_object);
97853
fa1023e4960c (font_fill_lglyph_metrics): Use EMACS_INT in LGLYPH_SET_CODE to avoid
Eli Zaretskii <eliz@gnu.org>
parents: 97822
diff changeset
4538 unsigned code;
fa1023e4960c (font_fill_lglyph_metrics): Use EMACS_INT in LGLYPH_SET_CODE to avoid
Eli Zaretskii <eliz@gnu.org>
parents: 97822
diff changeset
4539 /* ecode used in LGLYPH_SET_CODE to avoid compiler warnings. */
fa1023e4960c (font_fill_lglyph_metrics): Use EMACS_INT in LGLYPH_SET_CODE to avoid
Eli Zaretskii <eliz@gnu.org>
parents: 97822
diff changeset
4540 EMACS_INT ecode = font->driver->encode_char (font, LGLYPH_CHAR (glyph));
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4541 struct font_metrics metrics;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4542
97853
fa1023e4960c (font_fill_lglyph_metrics): Use EMACS_INT in LGLYPH_SET_CODE to avoid
Eli Zaretskii <eliz@gnu.org>
parents: 97822
diff changeset
4543 LGLYPH_SET_CODE (glyph, ecode);
fa1023e4960c (font_fill_lglyph_metrics): Use EMACS_INT in LGLYPH_SET_CODE to avoid
Eli Zaretskii <eliz@gnu.org>
parents: 97822
diff changeset
4544 code = ecode;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4545 font->driver->text_extents (font, &code, 1, &metrics);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4546 LGLYPH_SET_LBEARING (glyph, metrics.lbearing);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4547 LGLYPH_SET_RBEARING (glyph, metrics.rbearing);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4548 LGLYPH_SET_WIDTH (glyph, metrics.width);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4549 LGLYPH_SET_ASCENT (glyph, metrics.ascent);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4550 LGLYPH_SET_DESCENT (glyph, metrics.descent);
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4551 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4552
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4553
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4554 DEFUN ("font-shape-gstring", Ffont_shape_gstring, Sfont_shape_gstring, 1, 1, 0,
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4555 doc: /* Shape the glyph-string GSTRING.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4556 Shaping means substituting glyphs and/or adjusting positions of glyphs
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4557 to get the correct visual image of character sequences set in the
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4558 header of the glyph-string.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4559
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4560 If the shaping was successful, the value is GSTRING itself or a newly
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4561 created glyph-string. Otherwise, the value is nil. */)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4562 (gstring)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4563 Lisp_Object gstring;
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4564 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4565 struct font *font;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4566 Lisp_Object font_object, n, glyph;
98124
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4567 int i, j, from, to;
100336
d53183123ad7 * font.c (Ffont_spec): Move usage to end of docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 100173
diff changeset
4568
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4569 if (! composition_gstring_p (gstring))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4570 signal_error ("Invalid glyph-string: ", gstring);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4571 if (! NILP (LGSTRING_ID (gstring)))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4572 return gstring;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4573 font_object = LGSTRING_FONT (gstring);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4574 CHECK_FONT_OBJECT (font_object);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4575 font = XFONT_OBJECT (font_object);
92183
275e5e980fc4 If the font driver doesn't have `shape' function, return Qnil.
Kenichi Handa <handa@m17n.org>
parents: 92113
diff changeset
4576 if (! font->driver->shape)
275e5e980fc4 If the font driver doesn't have `shape' function, return Qnil.
Kenichi Handa <handa@m17n.org>
parents: 92113
diff changeset
4577 return Qnil;
275e5e980fc4 If the font driver doesn't have `shape' function, return Qnil.
Kenichi Handa <handa@m17n.org>
parents: 92113
diff changeset
4578
91273
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4579 /* Try at most three times with larger gstring each time. */
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4580 for (i = 0; i < 3; i++)
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4581 {
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4582 n = font->driver->shape (gstring);
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4583 if (INTEGERP (n))
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4584 break;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4585 gstring = larger_vector (gstring,
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4586 ASIZE (gstring) + LGSTRING_GLYPH_LEN (gstring),
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4587 Qnil);
91273
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4588 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4589 if (i == 3 || XINT (n) == 0)
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4590 return Qnil;
100336
d53183123ad7 * font.c (Ffont_spec): Move usage to end of docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 100173
diff changeset
4591
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4592 glyph = LGSTRING_GLYPH (gstring, 0);
98124
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4593 from = LGLYPH_FROM (glyph);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4594 to = LGLYPH_TO (glyph);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4595 for (i = 1, j = 0; i < LGSTRING_GLYPH_LEN (gstring); i++)
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4596 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4597 Lisp_Object this = LGSTRING_GLYPH (gstring, i);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4598
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4599 if (NILP (this))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4600 break;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4601 if (NILP (LGLYPH_ADJUSTMENT (this)))
98124
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4602 {
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4603 if (j < i - 1)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4604 for (; j < i; j++)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4605 {
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4606 glyph = LGSTRING_GLYPH (gstring, j);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4607 LGLYPH_SET_FROM (glyph, from);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4608 LGLYPH_SET_TO (glyph, to);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4609 }
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4610 from = LGLYPH_FROM (this);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4611 to = LGLYPH_TO (this);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4612 j = i;
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4613 }
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4614 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4615 {
98124
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4616 if (from > LGLYPH_FROM (this))
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4617 from = LGLYPH_FROM (this);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4618 if (to < LGLYPH_TO (this))
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4619 to = LGLYPH_TO (this);
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4620 }
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4621 }
98124
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4622 if (j < i - 1)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4623 for (; j < i; j++)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4624 {
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4625 glyph = LGSTRING_GLYPH (gstring, j);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4626 LGLYPH_SET_FROM (glyph, from);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4627 LGLYPH_SET_TO (glyph, to);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4628 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4629 return composition_gstring_put_cache (gstring, XINT (n));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4630 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4631
100793
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4632 DEFUN ("font-variation-glyphs", Ffont_variation_glyphs, Sfont_variation_glyphs,
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4633 2, 2, 0,
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4634 doc: /* Return a list of variation glyphs for CHAR in FONT-OBJECT.
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4635 Each element of the value is a cons (VARIATION-SELECTOR . GLYPH-ID),
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4636 where
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4637 VARIATION-SELECTOR is a chracter code of variation selection
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4638 (#xFE00..#xFE0F or #xE0100..#xE01EF)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4639 GLYPH-ID is a glyph code of the corresponding variation glyph. */)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4640 (font_object, character)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4641 Lisp_Object font_object, character;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4642 {
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4643 unsigned variations[256];
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4644 struct font *font;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4645 int i, n;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4646 Lisp_Object val;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4647
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4648 CHECK_FONT_OBJECT (font_object);
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4649 CHECK_CHARACTER (character);
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4650 font = XFONT_OBJECT (font_object);
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4651 if (! font->driver->get_variation_glyphs)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4652 return Qnil;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4653 n = font->driver->get_variation_glyphs (font, XINT (character), variations);
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4654 if (! n)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4655 return Qnil;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4656 val = Qnil;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4657 for (i = 0; i < 255; i++)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4658 if (variations[i])
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4659 {
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4660 Lisp_Object code;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4661 int vs = (i < 16 ? 0xFE00 + i : 0xE0100 + (i - 16));
101226
63d9f73bf9d9 (Ffont_variation_glyphs): Silence compiler.
Glenn Morris <rgm@gnu.org>
parents: 101156
diff changeset
4662 /* Stops GCC whining about limited range of data type. */
63d9f73bf9d9 (Ffont_variation_glyphs): Silence compiler.
Glenn Morris <rgm@gnu.org>
parents: 101156
diff changeset
4663 EMACS_INT var = variations[i];
63d9f73bf9d9 (Ffont_variation_glyphs): Silence compiler.
Glenn Morris <rgm@gnu.org>
parents: 101156
diff changeset
4664
63d9f73bf9d9 (Ffont_variation_glyphs): Silence compiler.
Glenn Morris <rgm@gnu.org>
parents: 101156
diff changeset
4665 if (var > MOST_POSITIVE_FIXNUM)
100793
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4666 code = Fcons (make_number ((variations[i]) >> 16),
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4667 make_number ((variations[i]) & 0xFFFF));
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4668 else
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4669 code = make_number (variations[i]);
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4670 val = Fcons (Fcons (make_number (vs), code), val);
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4671 }
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4672 return val;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4673 }
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4674
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
4675 #if 0
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
4676
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4677 DEFUN ("font-drive-otf", Ffont_drive_otf, Sfont_drive_otf, 6, 6, 0,
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4678 doc: /* Apply OpenType features on glyph-string GSTRING-IN.
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4679 OTF-FEATURES specifies which features to apply in this format:
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4680 (SCRIPT LANGSYS GSUB GPOS)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4681 where
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4682 SCRIPT is a symbol specifying a script tag of OpenType,
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4683 LANGSYS is a symbol specifying a langsys tag of OpenType,
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4684 GSUB and GPOS, if non-nil, are lists of symbols specifying feature tags.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4685
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4686 If LANGYS is nil, the default langsys is selected.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4687
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4688 The features are applied in the order they appear in the list. The
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4689 symbol `*' means to apply all available features not present in this
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4690 list, and the remaining features are ignored. For instance, (vatu
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4691 pstf * haln) is to apply vatu and pstf in this order, then to apply
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4692 all available features other than vatu, pstf, and haln.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4693
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4694 The features are applied to the glyphs in the range FROM and TO of
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4695 the glyph-string GSTRING-IN.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4696
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4697 If some feature is actually applicable, the resulting glyphs are
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4698 produced in the glyph-string GSTRING-OUT from the index INDEX. In
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4699 this case, the value is the number of produced glyphs.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4700
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4701 If no feature is applicable, no glyph is produced in GSTRING-OUT, and
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4702 the value is 0.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4703
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4704 If GSTRING-OUT is too short to hold produced glyphs, no glyphs are
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4705 produced in GSTRING-OUT, and the value is nil.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4706
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4707 See the documentation of `font-make-gstring' for the format of
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4708 glyph-string. */)
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4709 (otf_features, gstring_in, from, to, gstring_out, index)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4710 Lisp_Object otf_features, gstring_in, from, to, gstring_out, index;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4711 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4712 Lisp_Object font_object = LGSTRING_FONT (gstring_in);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4713 Lisp_Object val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4714 struct font *font;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4715 int len, num;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4716
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4717 check_otf_features (otf_features);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4718 CHECK_FONT_OBJECT (font_object);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4719 font = XFONT_OBJECT (font_object);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4720 if (! font->driver->otf_drive)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4721 error ("Font backend %s can't drive OpenType GSUB table",
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4722 SDATA (SYMBOL_NAME (font->driver->type)));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4723 CHECK_CONS (otf_features);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4724 CHECK_SYMBOL (XCAR (otf_features));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4725 val = XCDR (otf_features);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4726 CHECK_SYMBOL (XCAR (val));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4727 val = XCDR (otf_features);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4728 if (! NILP (val))
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4729 CHECK_CONS (val);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4730 len = check_gstring (gstring_in);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4731 CHECK_VECTOR (gstring_out);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4732 CHECK_NATNUM (from);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4733 CHECK_NATNUM (to);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4734 CHECK_NATNUM (index);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4735
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4736 if (XINT (from) >= XINT (to) || XINT (to) > len)
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4737 args_out_of_range_3 (from, to, make_number (len));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4738 if (XINT (index) >= ASIZE (gstring_out))
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4739 args_out_of_range (index, make_number (ASIZE (gstring_out)));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4740 num = font->driver->otf_drive (font, otf_features,
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4741 gstring_in, XINT (from), XINT (to),
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4742 gstring_out, XINT (index), 0);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4743 if (num < 0)
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4744 return Qnil;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4745 return make_number (num);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4746 }
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4747
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4748 DEFUN ("font-otf-alternates", Ffont_otf_alternates, Sfont_otf_alternates,
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4749 3, 3, 0,
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4750 doc: /* Return a list of alternate glyphs of CHARACTER in FONT-OBJECT.
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4751 OTF-FEATURES specifies which features of the font FONT-OBJECT to apply
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4752 in this format:
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4753 (SCRIPT LANGSYS FEATURE ...)
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4754 See the documentation of `font-drive-otf' for more detail.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4755
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4756 The value is a list of cons cells of the format (GLYPH-ID . CHARACTER),
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4757 where GLYPH-ID is a glyph index of the font, and CHARACTER is a
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4758 character code corresponding to the glyph or nil if there's no
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4759 corresponding character. */)
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4760 (font_object, character, otf_features)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4761 Lisp_Object font_object, character, otf_features;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4762 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4763 struct font *font;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4764 Lisp_Object gstring_in, gstring_out, g;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4765 Lisp_Object alternates;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4766 int i, num;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4767
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4768 CHECK_FONT_GET_OBJECT (font_object, font);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4769 if (! font->driver->otf_drive)
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
4770 error ("Font backend %s can't drive OpenType GSUB table",
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
4771 SDATA (SYMBOL_NAME (font->driver->type)));
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4772 CHECK_CHARACTER (character);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4773 CHECK_CONS (otf_features);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4774
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4775 gstring_in = Ffont_make_gstring (font_object, make_number (1));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4776 g = LGSTRING_GLYPH (gstring_in, 0);
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
4777 LGLYPH_SET_CHAR (g, XINT (character));
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4778 gstring_out = Ffont_make_gstring (font_object, make_number (10));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4779 while ((num = font->driver->otf_drive (font, otf_features, gstring_in, 0, 1,
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4780 gstring_out, 0, 1)) < 0)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4781 gstring_out = Ffont_make_gstring (font_object,
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4782 make_number (ASIZE (gstring_out) * 2));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4783 alternates = Qnil;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4784 for (i = 0; i < num; i++)
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4785 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4786 Lisp_Object g = LGSTRING_GLYPH (gstring_out, i);
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
4787 int c = LGLYPH_CHAR (g);
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
4788 unsigned code = LGLYPH_CODE (g);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4789
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4790 alternates = Fcons (Fcons (make_number (code),
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4791 c > 0 ? make_number (c) : Qnil),
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4792 alternates);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4793 }
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4794 return Fnreverse (alternates);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4795 }
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
4796 #endif /* 0 */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4797
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4798 #ifdef FONT_DEBUG
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4799
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4800 DEFUN ("open-font", Fopen_font, Sopen_font, 1, 3, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4801 doc: /* Open FONT-ENTITY. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4802 (font_entity, size, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4803 Lisp_Object font_entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4804 Lisp_Object size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4805 Lisp_Object frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4806 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4807 int isize;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4808
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4809 CHECK_FONT_ENTITY (font_entity);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4810 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4811 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4812 CHECK_LIVE_FRAME (frame);
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4813
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4814 if (NILP (size))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4815 isize = XINT (AREF (font_entity, FONT_SIZE_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4816 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4817 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4818 CHECK_NUMBER_OR_FLOAT (size);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4819 if (FLOATP (size))
100165
7add351b47c9 (Fopen_font): Compute pixel size correctly.
Chong Yidong <cyd@stupidchicken.com>
parents: 100126
diff changeset
4820 isize = POINT_TO_PIXEL (XFLOAT_DATA (size), XFRAME (frame)->resy);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4821 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4822 isize = XINT (size);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4823 if (isize == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4824 isize = 120;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4825 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4826 return font_open_entity (XFRAME (frame), font_entity, isize);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4827 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4828
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4829 DEFUN ("close-font", Fclose_font, Sclose_font, 1, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4830 doc: /* Close FONT-OBJECT. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4831 (font_object, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4832 Lisp_Object font_object, frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4833 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4834 CHECK_FONT_OBJECT (font_object);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4835 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4836 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4837 CHECK_LIVE_FRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4838 font_close_object (XFRAME (frame), font_object);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4839 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4840 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4841
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4842 DEFUN ("query-font", Fquery_font, Squery_font, 1, 1, 0,
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4843 doc: /* Return information about FONT-OBJECT.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4844 The value is a vector:
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4845 [ NAME FILENAME PIXEL-SIZE SIZE ASCENT DESCENT SPACE-WIDTH AVERAGE-WIDTH
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4846 CAPABILITY ]
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4847
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4848 NAME is a string of the font name (or nil if the font backend doesn't
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4849 provide a name).
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4850
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4851 FILENAME is a string of the font file (or nil if the font backend
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4852 doesn't provide a file name).
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4853
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4854 PIXEL-SIZE is a pixel size by which the font is opened.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4855
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4856 SIZE is a maximum advance width of the font in pixels.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4857
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4858 ASCENT, DESCENT, SPACE-WIDTH, AVERAGE-WIDTH are metrics of the font in
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4859 pixels.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4860
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4861 CAPABILITY is a list whose first element is a symbol representing the
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4862 font format \(x, opentype, truetype, type1, pcf, or bdf) and the
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4863 remaining elements describe the details of the font capability.
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4864
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4865 If the font is OpenType font, the form of the list is
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4866 \(opentype GSUB GPOS)
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4867 where GSUB shows which "GSUB" features the font supports, and GPOS
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4868 shows which "GPOS" features the font supports. Both GSUB and GPOS are
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4869 lists of the format:
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4870 \((SCRIPT (LANGSYS FEATURE ...) ...) ...)
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4871
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4872 If the font is not OpenType font, currently the length of the form is
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4873 one.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4874
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4875 SCRIPT is a symbol representing OpenType script tag.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4876
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4877 LANGSYS is a symbol representing OpenType langsys tag, or nil
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4878 representing the default langsys.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4879
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4880 FEATURE is a symbol representing OpenType feature tag.
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4881
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4882 If the font is not OpenType font, CAPABILITY is nil. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4883 (font_object)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4884 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4885 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4886 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4887 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4888
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4889 CHECK_FONT_GET_OBJECT (font_object, font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4890
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4891 val = Fmake_vector (make_number (9), Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4892 ASET (val, 0, AREF (font_object, FONT_NAME_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4893 ASET (val, 1, AREF (font_object, FONT_FILE_INDEX));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4894 ASET (val, 2, make_number (font->pixel_size));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4895 ASET (val, 3, make_number (font->max_width));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4896 ASET (val, 4, make_number (font->ascent));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4897 ASET (val, 5, make_number (font->descent));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4898 ASET (val, 6, make_number (font->space_width));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4899 ASET (val, 7, make_number (font->average_width));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4900 if (font->driver->otf_capability)
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4901 ASET (val, 8, Fcons (Qopentype, font->driver->otf_capability (font)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4902 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4903 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4904
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4905 DEFUN ("get-font-glyphs", Fget_font_glyphs, Sget_font_glyphs, 2, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4906 doc: /* Return a vector of glyphs of FONT-OBJECT for drawing STRING.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4907 Each element is a vector [GLYPH-CODE LBEARING RBEARING WIDTH ASCENT DESCENT]. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4908 (font_object, string)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4909 Lisp_Object font_object, string;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4910 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4911 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4912 int i, len;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4913 Lisp_Object vec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4914
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4915 CHECK_FONT_GET_OBJECT (font_object, font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4916 CHECK_STRING (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4917 len = SCHARS (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4918 vec = Fmake_vector (make_number (len), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4919 for (i = 0; i < len; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4920 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4921 Lisp_Object ch = Faref (string, make_number (i));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4922 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4923 int c = XINT (ch);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4924 unsigned code;
91871
436548f01688 (Ffont_fill_gstring, Fget_font_glyphs): Fix compilation warnings.
Eli Zaretskii <eliz@gnu.org>
parents: 91553
diff changeset
4925 EMACS_INT cod;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4926 struct font_metrics metrics;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4927
91871
436548f01688 (Ffont_fill_gstring, Fget_font_glyphs): Fix compilation warnings.
Eli Zaretskii <eliz@gnu.org>
parents: 91553
diff changeset
4928 cod = code = font->driver->encode_char (font, c);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4929 if (code == FONT_INVALID_CODE)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4930 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4931 val = Fmake_vector (make_number (6), Qnil);
91871
436548f01688 (Ffont_fill_gstring, Fget_font_glyphs): Fix compilation warnings.
Eli Zaretskii <eliz@gnu.org>
parents: 91553
diff changeset
4932 if (cod <= MOST_POSITIVE_FIXNUM)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4933 ASET (val, 0, make_number (code));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4934 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4935 ASET (val, 0, Fcons (make_number (code >> 16),
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4936 make_number (code & 0xFFFF)));
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4937 font->driver->text_extents (font, &code, 1, &metrics);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4938 ASET (val, 1, make_number (metrics.lbearing));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4939 ASET (val, 2, make_number (metrics.rbearing));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4940 ASET (val, 3, make_number (metrics.width));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4941 ASET (val, 4, make_number (metrics.ascent));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4942 ASET (val, 5, make_number (metrics.descent));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4943 ASET (vec, i, val);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4944 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4945 return vec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4946 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4947
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4948 DEFUN ("font-match-p", Ffont_match_p, Sfont_match_p, 2, 2, 0,
94745
a995b289585f (Ffont_match_p): Don't use `iff' in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94394
diff changeset
4949 doc: /* Return t if and only if font-spec SPEC matches with FONT.
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4950 FONT is a font-spec, font-entity, or font-object. */)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4951 (spec, font)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4952 Lisp_Object spec, font;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4953 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4954 CHECK_FONT_SPEC (spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4955 CHECK_FONT (font);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4956
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4957 return (font_match_p (spec, font) ? Qt : Qnil);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4958 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4959
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4960 DEFUN ("font-at", Ffont_at, Sfont_at, 1, 3, 0,
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4961 doc: /* Return a font-object for displaying a character at POSITION.
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4962 Optional second arg WINDOW, if non-nil, is a window displaying
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4963 the current buffer. It defaults to the currently selected window. */)
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4964 (position, window, string)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4965 Lisp_Object position, window, string;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4966 {
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4967 struct window *w;
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
4968 EMACS_INT pos;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4969
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4970 if (NILP (string))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4971 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4972 CHECK_NUMBER_COERCE_MARKER (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4973 pos = XINT (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4974 if (pos < BEGV || pos >= ZV)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4975 args_out_of_range_3 (position, make_number (BEGV), make_number (ZV));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4976 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4977 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4978 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4979 CHECK_NUMBER (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4980 CHECK_STRING (string);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4981 pos = XINT (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4982 if (pos < 0 || pos >= SCHARS (string))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4983 args_out_of_range (string, position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4984 }
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4985 if (NILP (window))
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4986 window = selected_window;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4987 CHECK_LIVE_WINDOW (window);
91273
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4988 w = XWINDOW (window);
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4989
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4990 return font_at (-1, pos, NULL, w, string);
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4991 }
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4992
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4993 #if 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4994 DEFUN ("draw-string", Fdraw_string, Sdraw_string, 2, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4995 doc: /* Draw STRING by FONT-OBJECT on the top left corner of the current frame.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4996 The value is a number of glyphs drawn.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4997 Type C-l to recover what previously shown. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4998 (font_object, string)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4999 Lisp_Object font_object, string;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5000 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5001 Lisp_Object frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5002 FRAME_PTR f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5003 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5004 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5005 int i, len, width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5006 unsigned *code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5007
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5008 CHECK_FONT_GET_OBJECT (font_object, font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5009 CHECK_STRING (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5010 len = SCHARS (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5011 code = alloca (sizeof (unsigned) * len);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5012 for (i = 0; i < len; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5013 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5014 Lisp_Object ch = Faref (string, make_number (i));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5015 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5016 int c = XINT (ch);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5017
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5018 code[i] = font->driver->encode_char (font, c);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5019 if (code[i] == FONT_INVALID_CODE)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5020 break;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5021 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5022 face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5023 face->fontp = font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5024 if (font->driver->prepare_face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5025 font->driver->prepare_face (f, face);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5026 width = font->driver->text_extents (font, code, i, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5027 len = font->driver->draw_text (f, face, 0, font->ascent, code, i, width);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5028 if (font->driver->done_face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5029 font->driver->done_face (f, face);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5030 face->fontp = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5031 return make_number (len);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5032 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5033 #endif
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5034
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5035 #endif /* FONT_DEBUG */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5036
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5037 #ifdef HAVE_WINDOW_SYSTEM
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5038
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5039 DEFUN ("font-info", Ffont_info, Sfont_info, 1, 2, 0,
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5040 doc: /* Return information about a font named NAME on frame FRAME.
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5041 If FRAME is omitted or nil, use the selected frame.
102963
b6011e455600 (Ffont_info): Fix docstring. Fix the second element of
Kenichi Handa <handa@m17n.org>
parents: 102943
diff changeset
5042 The returned value is a vector of OPENED-NAME, FULL-NAME, SIZE,
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5043 HEIGHT, BASELINE-OFFSET, RELATIVE-COMPOSE, and DEFAULT-ASCENT,
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5044 where
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5045 OPENED-NAME is the name used for opening the font,
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5046 FULL-NAME is the full name of the font,
102963
b6011e455600 (Ffont_info): Fix docstring. Fix the second element of
Kenichi Handa <handa@m17n.org>
parents: 102943
diff changeset
5047 SIZE is the pixelsize of the font,
b6011e455600 (Ffont_info): Fix docstring. Fix the second element of
Kenichi Handa <handa@m17n.org>
parents: 102943
diff changeset
5048 HEIGHT is the pixel-height of the font (i.e ascent + descent),
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5049 BASELINE-OFFSET is the upward offset pixels from ASCII baseline,
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5050 RELATIVE-COMPOSE and DEFAULT-ASCENT are the numbers controlling
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5051 how to compose characters.
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5052 If the named font is not yet loaded, return nil. */)
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5053 (name, frame)
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5054 Lisp_Object name, frame;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5055 {
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5056 FRAME_PTR f;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5057 struct font *font;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5058 Lisp_Object info;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5059 Lisp_Object font_object;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5060
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5061 (*check_window_system_func) ();
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5062
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5063 if (! FONTP (name))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5064 CHECK_STRING (name);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5065 if (NILP (frame))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5066 frame = selected_frame;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5067 CHECK_LIVE_FRAME (frame);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5068 f = XFRAME (frame);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5069
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5070 if (STRINGP (name))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5071 {
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5072 int fontset = fs_query_fontset (name, 0);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5073
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5074 if (fontset >= 0)
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5075 name = fontset_ascii (fontset);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5076 font_object = font_open_by_name (f, (char *) SDATA (name));
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5077 }
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5078 else if (FONT_OBJECT_P (name))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5079 font_object = name;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5080 else if (FONT_ENTITY_P (name))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5081 font_object = font_open_entity (f, name, 0);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5082 else
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5083 {
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5084 struct face *face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5085 Lisp_Object entity = font_matching_entity (f, face->lface, name);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5086
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5087 font_object = ! NILP (entity) ? font_open_entity (f, entity, 0) : Qnil;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5088 }
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5089 if (NILP (font_object))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5090 return Qnil;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5091 font = XFONT_OBJECT (font_object);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5092
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5093 info = Fmake_vector (make_number (7), Qnil);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5094 XVECTOR (info)->contents[0] = AREF (font_object, FONT_NAME_INDEX);
102963
b6011e455600 (Ffont_info): Fix docstring. Fix the second element of
Kenichi Handa <handa@m17n.org>
parents: 102943
diff changeset
5095 XVECTOR (info)->contents[1] = AREF (font_object, FONT_FULLNAME_INDEX);
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5096 XVECTOR (info)->contents[2] = make_number (font->pixel_size);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5097 XVECTOR (info)->contents[3] = make_number (font->height);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5098 XVECTOR (info)->contents[4] = make_number (font->baseline_offset);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5099 XVECTOR (info)->contents[5] = make_number (font->relative_compose);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5100 XVECTOR (info)->contents[6] = make_number (font->default_ascent);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5101
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5102 #if 0
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5103 /* As font_object is still in FONT_OBJLIST of the entity, we can't
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5104 close it now. Perhaps, we should manage font-objects
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5105 by `reference-count'. */
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5106 font_close_object (f, font_object);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5107 #endif
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5108 return info;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5109 }
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5110 #endif
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5111
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5112
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5113 #define BUILD_STYLE_TABLE(TBL) \
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5114 build_style_table ((TBL), sizeof TBL / sizeof (struct table_entry))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5115
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5116 static Lisp_Object
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5117 build_style_table (entry, nelement)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5118 struct table_entry *entry;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5119 int nelement;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5120 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5121 int i, j;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5122 Lisp_Object table, elt;
95886
c8bc52f94b6d (syms_of_font) <font-weight-table, font-slant-table, font-width-table>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95875
diff changeset
5123
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5124 table = Fmake_vector (make_number (nelement), Qnil);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5125 for (i = 0; i < nelement; i++)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5126 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5127 for (j = 0; entry[i].names[j]; j++);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5128 elt = Fmake_vector (make_number (j + 1), Qnil);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5129 ASET (elt, 0, make_number (entry[i].numeric));
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5130 for (j = 0; entry[i].names[j]; j++)
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105872
diff changeset
5131 ASET (elt, j + 1, intern_c_string (entry[i].names[j]));
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5132 ASET (table, i, elt);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5133 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5134 return table;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5135 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5136
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5137 Lisp_Object Vfont_log;
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5138
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5139 /* The deferred font-log data of the form [ACTION ARG RESULT].
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5140 If ACTION is not nil, that is added to the log when font_add_log is
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5141 called next time. At that time, ACTION is set back to nil. */
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5142 static Lisp_Object Vfont_log_deferred;
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5143
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5144 /* Prepend the font-related logging data in Vfont_log if it is not
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5145 `t'. ACTION describes a kind of font-related action (e.g. listing,
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5146 opening), ARG is the argument for the action, and RESULT is the
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5147 result of the action. */
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5148 void
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5149 font_add_log (action, arg, result)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5150 char *action;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5151 Lisp_Object arg, result;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5152 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5153 Lisp_Object tail, val;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5154 int i;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5155
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5156 if (EQ (Vfont_log, Qt))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5157 return;
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5158 if (STRINGP (AREF (Vfont_log_deferred, 0)))
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5159 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5160 char *str = (char *) SDATA (AREF (Vfont_log_deferred, 0));
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5161
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5162 ASET (Vfont_log_deferred, 0, Qnil);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5163 font_add_log (str, AREF (Vfont_log_deferred, 1),
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5164 AREF (Vfont_log_deferred, 2));
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5165 }
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5166
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5167 if (FONTP (arg))
97538
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5168 {
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5169 Lisp_Object tail, elt;
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5170 Lisp_Object equalstr = build_string ("=");
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5171
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5172 val = Ffont_xlfd_name (arg, Qt);
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5173 for (tail = AREF (arg, FONT_EXTRA_INDEX); CONSP (tail);
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5174 tail = XCDR (tail))
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5175 {
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5176 elt = XCAR (tail);
99072
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5177 if (EQ (XCAR (elt), QCscript)
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5178 && SYMBOLP (XCDR (elt)))
97538
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5179 val = concat3 (val, SYMBOL_NAME (QCscript),
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5180 concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
99072
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5181 else if (EQ (XCAR (elt), QClang)
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5182 && SYMBOLP (XCDR (elt)))
97538
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5183 val = concat3 (val, SYMBOL_NAME (QClang),
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5184 concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
99072
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5185 else if (EQ (XCAR (elt), QCotf)
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5186 && CONSP (XCDR (elt)) && SYMBOLP (XCAR (XCDR (elt))))
97538
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5187 val = concat3 (val, SYMBOL_NAME (QCotf),
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5188 concat2 (equalstr,
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5189 SYMBOL_NAME (XCAR (XCDR (elt)))));
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5190 }
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5191 arg = val;
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5192 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5193
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5194 if (CONSP (result)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5195 && VECTORP (XCAR (result))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5196 && ASIZE (XCAR (result)) > 0
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5197 && FONTP (AREF (XCAR (result), 0)))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5198 result = font_vconcat_entity_vectors (result);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5199 if (FONTP (result))
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5200 {
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5201 val = Ffont_xlfd_name (result, Qt);
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5202 if (! FONT_SPEC_P (result))
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5203 val = concat3 (SYMBOL_NAME (AREF (result, FONT_TYPE_INDEX)),
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5204 build_string (":"), val);
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5205 result = val;
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5206 }
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5207 else if (CONSP (result))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5208 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5209 result = Fcopy_sequence (result);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5210 for (tail = result; CONSP (tail); tail = XCDR (tail))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5211 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5212 val = XCAR (tail);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5213 if (FONTP (val))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5214 val = Ffont_xlfd_name (val, Qt);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5215 XSETCAR (tail, val);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5216 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5217 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5218 else if (VECTORP (result))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5219 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5220 result = Fcopy_sequence (result);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5221 for (i = 0; i < ASIZE (result); i++)
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5222 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5223 val = AREF (result, i);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5224 if (FONTP (val))
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5225 val = Ffont_xlfd_name (val, Qt);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5226 ASET (result, i, val);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5227 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5228 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5229 Vfont_log = Fcons (list3 (intern (action), arg, result), Vfont_log);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5230 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5231
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5232 /* Record a font-related logging data to be added to Vfont_log when
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5233 font_add_log is called next time. ACTION, ARG, RESULT are the same
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5234 as font_add_log. */
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5235
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5236 void
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5237 font_deferred_log (action, arg, result)
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5238 char *action;
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5239 Lisp_Object arg, result;
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5240 {
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5241 if (EQ (Vfont_log, Qt))
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5242 return;
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5243 ASET (Vfont_log_deferred, 0, build_string (action));
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5244 ASET (Vfont_log_deferred, 1, arg);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5245 ASET (Vfont_log_deferred, 2, result);
100336
d53183123ad7 * font.c (Ffont_spec): Move usage to end of docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 100173
diff changeset
5246 }
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5247
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5248 extern void syms_of_ftfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5249 extern void syms_of_xfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5250 extern void syms_of_xftfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5251 extern void syms_of_ftxfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5252 extern void syms_of_bdffont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5253 extern void syms_of_w32font P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5254 extern void syms_of_atmfont P_ (());
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5255 extern void syms_of_nsfont P_ (());
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5256
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5257 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5258 syms_of_font ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5259 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
5260 sort_shift_bits[FONT_TYPE_INDEX] = 0;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
5261 sort_shift_bits[FONT_SLANT_INDEX] = 2;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
5262 sort_shift_bits[FONT_WEIGHT_INDEX] = 9;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
5263 sort_shift_bits[FONT_SIZE_INDEX] = 16;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
5264 sort_shift_bits[FONT_WIDTH_INDEX] = 23;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
5265 /* Note that the other elements in sort_shift_bits are not used. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5266
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
5267 staticpro (&font_charset_alist);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
5268 font_charset_alist = Qnil;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
5269
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
5270 DEFSYM (Qopentype, "opentype");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5271
95699
0afdc320716c (Qascii_0): New variable.
Kenichi Handa <handa@m17n.org>
parents: 95573
diff changeset
5272 DEFSYM (Qascii_0, "ascii-0");
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
5273 DEFSYM (Qiso8859_1, "iso8859-1");
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
5274 DEFSYM (Qiso10646_1, "iso10646-1");
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
5275 DEFSYM (Qunicode_bmp, "unicode-bmp");
90622
bb9362e3a03b (Qunicode_sip): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90590
diff changeset
5276 DEFSYM (Qunicode_sip, "unicode-sip");
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
5277
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5278 DEFSYM (QCf, "Cf");
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5279
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5280 DEFSYM (QCotf, ":otf");
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5281 DEFSYM (QClang, ":lang");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5282 DEFSYM (QCscript, ":script");
91125
6c9a19ff6c55 (Qfontp): Remove unused symbol.
Jason Rumney <jasonr@gnu.org>
parents: 91112
diff changeset
5283 DEFSYM (QCantialias, ":antialias");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5284
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5285 DEFSYM (QCfoundry, ":foundry");
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5286 DEFSYM (QCadstyle, ":adstyle");
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5287 DEFSYM (QCregistry, ":registry");
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
5288 DEFSYM (QCspacing, ":spacing");
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
5289 DEFSYM (QCdpi, ":dpi");
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5290 DEFSYM (QCscalable, ":scalable");
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5291 DEFSYM (QCavgwidth, ":avgwidth");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5292 DEFSYM (QCfont_entity, ":font-entity");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5293 DEFSYM (QCfc_unknown_spec, ":fc-unknown-spec");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5294
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5295 DEFSYM (Qc, "c");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5296 DEFSYM (Qm, "m");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5297 DEFSYM (Qp, "p");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5298 DEFSYM (Qd, "d");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5299
103011
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
5300 DEFSYM (Qja, "ja");
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
5301 DEFSYM (Qko, "ko");
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
5302
106750
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
5303 DEFSYM (QCuser_spec, "user-spec");
10b9609fb6b7 Fixing user-spec for fonts instead of using name.
Jan D. <jan.h.d@swipnet.se>
parents: 106618
diff changeset
5304
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5305 staticpro (&null_vector);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5306 null_vector = Fmake_vector (make_number (0), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5307
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5308 staticpro (&scratch_font_spec);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5309 scratch_font_spec = Ffont_spec (0, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5310 staticpro (&scratch_font_prefer);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5311 scratch_font_prefer = Ffont_spec (0, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5312
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5313 staticpro (&Vfont_log_deferred);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5314 Vfont_log_deferred = Fmake_vector (make_number (3), Qnil);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5315
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5316 #if 0
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5317 #ifdef HAVE_LIBOTF
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5318 staticpro (&otf_list);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5319 otf_list = Qnil;
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5320 #endif /* HAVE_LIBOTF */
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5321 #endif /* 0 */
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5322
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5323 defsubr (&Sfontp);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5324 defsubr (&Sfont_spec);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5325 defsubr (&Sfont_get);
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
5326 #ifdef HAVE_WINDOW_SYSTEM
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
5327 defsubr (&Sfont_face_attributes);
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
5328 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5329 defsubr (&Sfont_put);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5330 defsubr (&Slist_fonts);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5331 defsubr (&Sfont_family_list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5332 defsubr (&Sfind_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5333 defsubr (&Sfont_xlfd_name);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5334 defsubr (&Sclear_font_cache);
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5335 defsubr (&Sfont_shape_gstring);
100793
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
5336 defsubr (&Sfont_variation_glyphs);
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5337 #if 0
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5338 defsubr (&Sfont_drive_otf);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
5339 defsubr (&Sfont_otf_alternates);
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5340 #endif /* 0 */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5341
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5342 #ifdef FONT_DEBUG
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5343 defsubr (&Sopen_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5344 defsubr (&Sclose_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5345 defsubr (&Squery_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5346 defsubr (&Sget_font_glyphs);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5347 defsubr (&Sfont_match_p);
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
5348 defsubr (&Sfont_at);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5349 #if 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5350 defsubr (&Sdraw_string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5351 #endif
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5352 #endif /* FONT_DEBUG */
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5353 #ifdef HAVE_WINDOW_SYSTEM
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5354 defsubr (&Sfont_info);
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5355 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5356
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5357 DEFVAR_LISP ("font-encoding-alist", &Vfont_encoding_alist,
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5358 doc: /*
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5359 Alist of fontname patterns vs the corresponding encoding and repertory info.
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5360 Each element looks like (REGEXP . (ENCODING . REPERTORY)),
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5361 where ENCODING is a charset or a char-table,
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5362 and REPERTORY is a charset, a char-table, or nil.
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5363
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
5364 If ENCODING and REPERTORY are the same, the element can have the form
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5365 \(REGEXP . ENCODING).
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5366
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5367 ENCODING is for converting a character to a glyph code of the font.
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5368 If ENCODING is a charset, encoding a character by the charset gives
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5369 the corresponding glyph code. If ENCODING is a char-table, looking up
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5370 the table by a character gives the corresponding glyph code.
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5371
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5372 REPERTORY specifies a repertory of characters supported by the font.
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5373 If REPERTORY is a charset, all characters beloging to the charset are
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5374 supported. If REPERTORY is a char-table, all characters who have a
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
5375 non-nil value in the table are supported. If REPERTORY is nil, Emacs
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5376 gets the repertory information by an opened font and ENCODING. */);
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5377 Vfont_encoding_alist = Qnil;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5378
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5379 DEFVAR_LISP_NOPRO ("font-weight-table", &Vfont_weight_table,
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5380 doc: /* Vector of valid font weight values.
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5381 Each element has the form:
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5382 [NUMERIC-VALUE SYMBOLIC-NAME ALIAS-NAME ...]
95886
c8bc52f94b6d (syms_of_font) <font-weight-table, font-slant-table, font-width-table>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95875
diff changeset
5383 NUMERIC-VALUE is an integer, and SYMBOLIC-NAME and ALIAS-NAME are symbols. */);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5384 Vfont_weight_table = BUILD_STYLE_TABLE (weight_table);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5385
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5386 DEFVAR_LISP_NOPRO ("font-slant-table", &Vfont_slant_table,
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5387 doc: /* Vector of font slant symbols vs the corresponding numeric values.
95886
c8bc52f94b6d (syms_of_font) <font-weight-table, font-slant-table, font-width-table>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95875
diff changeset
5388 See `font-weight-table' for the format of the vector. */);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5389 Vfont_slant_table = BUILD_STYLE_TABLE (slant_table);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5390
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5391 DEFVAR_LISP_NOPRO ("font-width-table", &Vfont_width_table,
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5392 doc: /* Alist of font width symbols vs the corresponding numeric values.
95886
c8bc52f94b6d (syms_of_font) <font-weight-table, font-slant-table, font-width-table>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95875
diff changeset
5393 See `font-weight-table' for the format of the vector. */);
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5394 Vfont_width_table = BUILD_STYLE_TABLE (width_table);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5395
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5396 staticpro (&font_style_table);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5397 font_style_table = Fmake_vector (make_number (3), Qnil);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5398 ASET (font_style_table, 0, Vfont_weight_table);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5399 ASET (font_style_table, 1, Vfont_slant_table);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5400 ASET (font_style_table, 2, Vfont_width_table);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5401
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5402 DEFVAR_LISP ("font-log", &Vfont_log, doc: /*
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5403 *Logging list of font related actions and results.
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5404 The value t means to suppress the logging.
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5405 The initial value is set to nil if the environment variable
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5406 EMACS_FONT_LOG is set. Otherwise, it is set to t. */);
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5407 Vfont_log = Qnil;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5408
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5409 #ifdef HAVE_WINDOW_SYSTEM
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5410 #ifdef HAVE_FREETYPE
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5411 syms_of_ftfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5412 #ifdef HAVE_X_WINDOWS
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5413 syms_of_xfont ();
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5414 syms_of_ftxfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5415 #ifdef HAVE_XFT
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5416 syms_of_xftfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5417 #endif /* HAVE_XFT */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5418 #endif /* HAVE_X_WINDOWS */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5419 #else /* not HAVE_FREETYPE */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5420 #ifdef HAVE_X_WINDOWS
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5421 syms_of_xfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5422 #endif /* HAVE_X_WINDOWS */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5423 #endif /* not HAVE_FREETYPE */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5424 #ifdef HAVE_BDFFONT
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5425 syms_of_bdffont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5426 #endif /* HAVE_BDFFONT */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5427 #ifdef WINDOWSNT
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5428 syms_of_w32font ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5429 #endif /* WINDOWSNT */
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5430 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5431 syms_of_nsfont ();
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5432 #endif /* HAVE_NS */
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5433 #endif /* HAVE_WINDOW_SYSTEM */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5434 }
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
5435
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5436 void
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5437 init_font ()
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5438 {
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5439 Vfont_log = egetenv ("EMACS_FONT_LOG") ? Qnil : Qt;
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5440 }
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5441
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
5442 /* arch-tag: 74c9475d-5976-4c93-a327-942ae3072846
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
5443 (do not change this comment) */