annotate src/font.c @ 106184:0579465d2619

(cc-imenu-java-generic-expression): A corrected version of the patch from 2009-11-18.
author Alan Mackenzie <acm@muc.de>
date Sat, 21 Nov 2009 10:32:20 +0000
parents cd4cbab8bb21
children f2cea199b0c4
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.
100951
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100793
diff changeset
2 Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100793
diff changeset
3 Copyright (C) 2006, 2007, 2008, 2009
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
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
146 Lisp_Object Vfont_encoding_alist;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
147
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
148 /* 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
149 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
150 Vfont_encoding_alist on demand.
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
151
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
152 Eash element has the form:
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
153 (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
154 or
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
155 (REGISTRY . nil)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
156
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
157 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
158 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
159 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
160 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
161
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
162 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
163 retrieved. */
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
164 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
165
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
166 /* 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
167 register_font_driver in syms_of_XXXfont to register its font-driver
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
168 here. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
169 static struct font_driver_list *font_driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
171
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
172
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
173 /* Creaters of font-related Lisp object. */
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 Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
176 font_make_spec ()
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
177 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
178 Lisp_Object font_spec;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
179 struct font_spec *spec
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
180 = ((struct font_spec *)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
181 allocate_pseudovector (VECSIZE (struct font_spec),
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
182 FONT_SPEC_MAX, PVEC_FONT));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
183 XSETFONT (font_spec, spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
184 return font_spec;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
185 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
186
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
187 Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
188 font_make_entity ()
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
189 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
190 Lisp_Object font_entity;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
191 struct font_entity *entity
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
192 = ((struct font_entity *)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
193 allocate_pseudovector (VECSIZE (struct font_entity),
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
194 FONT_ENTITY_MAX, PVEC_FONT));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
195 XSETFONT (font_entity, entity);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
196 return font_entity;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
197 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
198
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
199 /* 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
200 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
201 PIXELSIZE is positive, set the `size' property to PIXELSIZE. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
202 Lisp_Object
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
203 font_make_object (size, entity, pixelsize)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
204 int size;
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
205 Lisp_Object entity;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
206 int pixelsize;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
207 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
208 Lisp_Object font_object;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
209 struct font *font
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
210 = (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
211 int i;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
212
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
213 XSETFONT (font_object, font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
214
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
215 if (! NILP (entity))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
216 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
217 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
218 font->props[i] = AREF (entity, i);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
219 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
220 font->props[FONT_EXTRA_INDEX]
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
221 = Fcopy_sequence (AREF (entity, FONT_EXTRA_INDEX));
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
222 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
223 if (size > 0)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
224 font->props[FONT_SIZE_INDEX] = make_number (pixelsize);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
225 return font_object;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
226 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
227
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
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
230 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
231 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
232 static Lisp_Object font_matching_entity P_ ((FRAME_PTR, Lisp_Object *,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233 Lisp_Object));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 /* Number of registered font drivers. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
236 static int num_font_drivers;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
237
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
238
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
239 /* 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
240 If STR is "*", it returns nil.
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
241 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
242 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
243 STR. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
244
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
245 Lisp_Object
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
246 font_intern_prop (str, len, force_symbol)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
247 char *str;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
248 int len;
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
249 int force_symbol;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
250 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
251 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
252 Lisp_Object tem;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
253 Lisp_Object obarray;
100759
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
254 int nbytes, nchars;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
255
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
256 if (len == 1 && *str == '*')
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
257 return Qnil;
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
258 if (!force_symbol && len >=1 && isdigit (*str))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
259 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
260 for (i = 1; i < len; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
261 if (! isdigit (str[i]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
262 break;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
263 if (i == len)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
264 return make_number (atoi (str));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
265 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
266
100759
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
267 /* 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
268 lread.c), and modified to suite our purpose. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
269 obarray = Vobarray;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
270 if (!VECTORP (obarray) || XVECTOR (obarray)->size == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
271 obarray = check_obarray (obarray);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
272 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
273 if (len == nchars || len != nbytes)
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
274 /* 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
275 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
276 tem = oblookup (obarray, str, len, len);
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
277 else
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
278 tem = oblookup (obarray, str, nchars, len);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
279 if (SYMBOLP (tem))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
280 return tem;
100759
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
281 if (len == nchars || len != nbytes)
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
282 tem = make_unibyte_string (str, len);
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
283 else
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
284 tem = make_multibyte_string (str, nchars, len);
fd802fcbb882 (font_intern_prop): Validate str as multibyte.
Kenichi Handa <handa@m17n.org>
parents: 100445
diff changeset
285 return Fintern (tem, obarray);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
286 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
287
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
288 /* 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
289
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
290 static int
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
291 font_pixel_size (f, spec)
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
292 FRAME_PTR f;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
293 Lisp_Object spec;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
294 {
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
295 #ifdef HAVE_WINDOW_SYSTEM
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
296 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
297 double point_size;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
298 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
299 Lisp_Object val;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
300
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
301 if (INTEGERP (size))
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
302 return XINT (size);
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
303 if (NILP (size))
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
304 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
305 font_assert (FLOATP (size));
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
306 point_size = XFLOAT_DATA (size);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
307 val = AREF (spec, FONT_DPI_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
308 if (INTEGERP (val))
95483
d3cbd7d56845 (font_pixel_size): Don't take cdr of an integer.
Chong Yidong <cyd@stupidchicken.com>
parents: 95475
diff changeset
309 dpi = XINT (val);
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
310 else
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
311 dpi = f->resy;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
312 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
313 return pixel_size;
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
314 #else
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
315 return 1;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
316 #endif
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
317 }
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
318
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
319
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
320 /* 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
321 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
322 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
323 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
324 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
325 VAL is an integer. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
326
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
327 int
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
328 font_style_to_value (prop, val, noerror)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
329 enum font_property_index prop;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
330 Lisp_Object val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
331 int noerror;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
332 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
333 Lisp_Object table = AREF (font_style_table, prop - FONT_WEIGHT_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
334 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
335 int i, j;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
336
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
337 if (SYMBOLP (val))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
338 {
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
339 unsigned char *s;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
340 Lisp_Object args[2], elt;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
341
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
342 /* At first try exact match. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
343 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
344 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
345 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
346 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
347 | (i << 4) | (j - 1));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
348 /* 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
349 s = SDATA (SYMBOL_NAME (val));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
350 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
351 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
352 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
353 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
354 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
355 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
356 | (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
357 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
358 if (! noerror)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
359 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
360 if (len == 255)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
361 abort ();
102298
b666efc8e847 (font_style_to_value): Set value for unknown symbols to
Chong Yidong <cyd@stupidchicken.com>
parents: 102159
diff changeset
362 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
363 ASET (elt, 1, val);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
364 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
365 args[1] = Fmake_vector (make_number (1), elt);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
366 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
367 return (100 << 8) | (i << 4);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
369 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
370 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
371 int i, last_n;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
372 int numeric = XINT (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
373
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
374 for (i = 0, last_n = -1; i < len; i++)
94926
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 int n = XINT (AREF (AREF (table, i), 0));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
377
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
378 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
379 return (n << 8) | (i << 4);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
380 if (numeric < n)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
381 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
382 if (! noerror)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
383 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
384 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
385 ? (n << 8) | (i << 4): (last_n << 8 | ((i - 1) << 4)));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
386 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
387 last_n = n;
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 if (! noerror)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
390 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
391 return ((last_n << 8) | ((i - 1) << 4));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
392 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
393 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
394
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
395 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
396 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
397 Lisp_Object font;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
398 enum font_property_index prop;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
399 int for_face;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
400 {
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
401 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
402 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
403 int i;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
404
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
405 if (NILP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
406 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
407 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
408 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
409 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
410 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
411 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
412 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
413 }
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95890
diff changeset
414
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
415 extern Lisp_Object Vface_alternative_font_family_alist;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
416
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
417 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
418
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
419
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
420 /* 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
421 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
422 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
423
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
424 Lisp_Object
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
425 find_font_encoding (fontname)
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
426 Lisp_Object fontname;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
427 {
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
428 Lisp_Object tail, elt;
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 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
431 {
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
432 elt = XCAR (tail);
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
433 if (CONSP (elt)
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
434 && STRINGP (XCAR (elt))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
435 && 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
436 && (SYMBOLP (XCDR (elt))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
437 ? CHARSETP (XCDR (elt))
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
438 : 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
439 return (XCDR (elt));
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
440 }
102708
c8014e79191f (find_font_encoding): Return Qnil for unsupported encoding.
Kenichi Handa <handa@m17n.org>
parents: 102483
diff changeset
441 return Qnil;
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
442 }
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
443
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
444 /* 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
445 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
446 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
447
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
448 int
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
449 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
450 Lisp_Object registry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
451 struct charset **encoding, **repertory;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
452 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
453 Lisp_Object val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
454 int encoding_id, repertory_id;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
455
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
456 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
457 if (! NILP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
458 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
459 val = XCDR (val);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
460 if (NILP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
461 return -1;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
462 encoding_id = XINT (XCAR (val));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
463 repertory_id = XINT (XCDR (val));
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
464 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
465 else
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 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
468 if (SYMBOLP (val) && CHARSETP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
469 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
470 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
471 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
472 else if (CONSP (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 if (! CHARSETP (XCAR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
475 goto invalid_entry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
476 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
477 if (NILP (XCDR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
478 repertory_id = -1;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
479 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
480 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
481 if (! CHARSETP (XCDR (val)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
482 goto invalid_entry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
483 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
484 }
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
485 }
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
486 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
487 goto invalid_entry;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
488 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
489 font_charset_alist
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
490 = 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
491 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
492
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
493 if (encoding)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
494 *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
495 if (repertory)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
496 *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
497 return 0;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
498
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
499 invalid_entry:
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
500 font_charset_alist
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
501 = 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
502 return -1;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
503 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
504
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
505
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
506 /* 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
507 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
508
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
509 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
510 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
511 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
512 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
513 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
514 static int get_font_prop_index P_ ((Lisp_Object));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 static Lisp_Object
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
517 font_prop_validate_symbol (prop, val)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
518 Lisp_Object prop, val;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520 if (STRINGP (val))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
521 val = Fintern (val, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
522 if (! SYMBOLP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
523 val = Qerror;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
524 else if (EQ (prop, QCregistry))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
525 val = Fintern (Fdowncase (SYMBOL_NAME (val)), Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
526 return val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
527 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
528
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 static Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
531 font_prop_validate_style (style, val)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
532 Lisp_Object style, val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
533 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
534 enum font_property_index prop = (EQ (style, QCweight) ? FONT_WEIGHT_INDEX
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
535 : EQ (style, QCslant) ? FONT_SLANT_INDEX
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
536 : FONT_WIDTH_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
537 int n;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
538 if (INTEGERP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
539 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
540 n = XINT (val);
95194
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
541 if (((n >> 4) & 0xF)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
542 >= ASIZE (AREF (font_style_table, prop - FONT_WEIGHT_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
543 val = Qerror;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
544 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
545 {
95194
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
546 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
547
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
548 if ((n & 0xF) + 1 >= ASIZE (elt))
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
549 val = Qerror;
6be267398fe5 (font_prop_validate_style): Adjusted for the format
Kenichi Handa <handa@m17n.org>
parents: 95177
diff changeset
550 else if (XINT (AREF (elt, 0)) != (n >> 8))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
551 val = Qerror;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
552 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
553 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 else if (SYMBOLP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
556 int n = font_style_to_value (prop, val, 0);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
557
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
558 val = n >= 0 ? make_number (n) : Qerror;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
559 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
560 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
561 val = Qerror;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
562 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
563 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
564
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
565 static Lisp_Object
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
566 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
567 Lisp_Object prop, val;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
568 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
569 return (NATNUMP (val) || (FLOATP (val) && XFLOAT_DATA (val) >= 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
570 ? val : Qerror);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
571 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
572
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
573 static Lisp_Object
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
574 font_prop_validate_spacing (prop, val)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
575 Lisp_Object prop, val;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
576 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
577 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
578 return val;
95504
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
579 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
580 {
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
581 char spacing = SDATA (SYMBOL_NAME (val))[0];
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 if (spacing == 'c' || spacing == 'C')
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
584 return make_number (FONT_SPACING_CHARCELL);
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
585 if (spacing == 'm' || spacing == 'M')
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
586 return make_number (FONT_SPACING_MONO);
95523
3c4256715c94 (font_prop_validate_spacing): Fix last change.
Andreas Schwab <schwab@suse.de>
parents: 95516
diff changeset
587 if (spacing == 'p' || spacing == 'P')
95504
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
588 return make_number (FONT_SPACING_PROPORTIONAL);
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
589 if (spacing == 'd' || spacing == 'D')
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
590 return make_number (FONT_SPACING_DUAL);
00bdff60fc10 (font_prop_validate_spacing): Handle uppercase symbols.
Kenichi Handa <handa@m17n.org>
parents: 95483
diff changeset
591 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
592 return Qerror;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
593 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
594
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
595 static Lisp_Object
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
596 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
597 Lisp_Object prop, val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
598 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
599 Lisp_Object tail, tmp;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
600 int i;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
601
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
602 /* 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
603 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
604 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
605 if (! CONSP (val))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
606 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
607 if (! SYMBOLP (XCAR (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 tail = XCDR (val);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
610 if (NILP (tail))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
611 return val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
612 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
613 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
614 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
615 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
616 tail = XCDR (tail);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
617 if (NILP (tail))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
618 return val;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
619 if (! CONSP (tail))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
620 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
621 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
622 if (! SYMBOLP (XCAR (tmp)))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
623 return Qerror;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
624 if (! NILP (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 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
627 return val;
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
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
630 /* 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
631 values. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
632 struct
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
633 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
634 /* Pointer to the key symbol. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
635 Lisp_Object *key;
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
636 /* 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
637 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
638 and Qerror if not. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
639 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
640 } font_property_table[] =
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
641 { { &QCtype, font_prop_validate_symbol },
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
642 { &QCfoundry, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
643 { &QCfamily, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
644 { &QCadstyle, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
645 { &QCregistry, font_prop_validate_symbol },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
646 { &QCweight, font_prop_validate_style },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
647 { &QCslant, font_prop_validate_style },
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
648 { &QCwidth, font_prop_validate_style },
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
649 { &QCsize, font_prop_validate_non_neg },
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
650 { &QCdpi, font_prop_validate_non_neg },
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
651 { &QCspacing, font_prop_validate_spacing },
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
652 { &QCavgwidth, font_prop_validate_non_neg },
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
653 /* The order of the above entries must match with enum
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
654 font_property_index. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
655 { &QClang, font_prop_validate_symbol },
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
656 { &QCscript, font_prop_validate_symbol },
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
657 { &QCotf, font_prop_validate_otf }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
658 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
659
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
660 /* 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
661 #define FONT_PROPERTY_TABLE_SIZE \
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
662 ((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
663
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
664 /* 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
665 already known property. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
666
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
667 static int
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
668 get_font_prop_index (key)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
669 Lisp_Object key;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
670 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
671 int i;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
672
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
673 for (i = 0; i < FONT_PROPERTY_TABLE_SIZE; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
674 if (EQ (key, *font_property_table[i].key))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
675 return i;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
676 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
677 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
678
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
679 /* Validate the font property. The property key is specified by the
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
680 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
681 signal an error. The value is VAL or the regularized one. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
682
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
683 static Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
684 font_prop_validate (idx, prop, val)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
685 int idx;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
686 Lisp_Object prop, val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
687 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
688 Lisp_Object validated;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
689
94964
5ffc88767cc1 (font_prop_validate): Make nil a valid value.
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
690 if (NILP (val))
5ffc88767cc1 (font_prop_validate): Make nil a valid value.
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
691 return val;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
692 if (NILP (prop))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
693 prop = *font_property_table[idx].key;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
694 else
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
695 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
696 idx = get_font_prop_index (prop);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
697 if (idx < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
698 return val;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
699 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
700 validated = (font_property_table[idx].validater) (prop, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
701 if (EQ (validated, Qerror))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
702 signal_error ("invalid font property", Fcons (prop, val));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
703 return validated;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
704 }
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
705
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
706
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
707 /* 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
708 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
709
90888
5f03b3602143 (font_put_extra): Expose externally.
Jason Rumney <jasonr@gnu.org>
parents: 90883
diff changeset
710 Lisp_Object
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
711 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
712 Lisp_Object font, prop, val;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
713 {
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
714 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
715 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
716
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
717 if (NILP (slot))
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
718 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
719 Lisp_Object prev = Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
720
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
721 while (CONSP (extra)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
722 && NILP (Fstring_lessp (prop, XCAR (XCAR (extra)))))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
723 prev = extra, extra = XCDR (extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
724 if (NILP (prev))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
725 ASET (font, FONT_EXTRA_INDEX, Fcons (Fcons (prop, val), extra));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
726 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
727 XSETCDR (prev, Fcons (Fcons (prop, val), extra));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
728 return val;
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
729 }
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
730 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
731 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
732 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
733 return val;
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
734 }
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
735
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
736
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
737 /* Font name parser and unparser */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
738
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
739 static int parse_matrix P_ ((char *));
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
740 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
741 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
742
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
743 /* An enumerator for each field of an XLFD font name. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
744 enum xlfd_field_index
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
745 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
746 XLFD_FOUNDRY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
747 XLFD_FAMILY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
748 XLFD_WEIGHT_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
749 XLFD_SLANT_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
750 XLFD_SWIDTH_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
751 XLFD_ADSTYLE_INDEX,
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
752 XLFD_PIXEL_INDEX,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
753 XLFD_POINT_INDEX,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
754 XLFD_RESX_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
755 XLFD_RESY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
756 XLFD_SPACING_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
757 XLFD_AVGWIDTH_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
758 XLFD_REGISTRY_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
759 XLFD_ENCODING_INDEX,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
760 XLFD_LAST_INDEX
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
761 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
762
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
763 /* 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
764 enum xlfd_field_mask
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
765 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
766 XLFD_FOUNDRY_MASK = 0x0001,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
767 XLFD_FAMILY_MASK = 0x0002,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
768 XLFD_WEIGHT_MASK = 0x0004,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
769 XLFD_SLANT_MASK = 0x0008,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
770 XLFD_SWIDTH_MASK = 0x0010,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
771 XLFD_ADSTYLE_MASK = 0x0020,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
772 XLFD_PIXEL_MASK = 0x0040,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
773 XLFD_POINT_MASK = 0x0080,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
774 XLFD_RESX_MASK = 0x0100,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
775 XLFD_RESY_MASK = 0x0200,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
776 XLFD_SPACING_MASK = 0x0400,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
777 XLFD_AVGWIDTH_MASK = 0x0800,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
778 XLFD_REGISTRY_MASK = 0x1000,
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
779 XLFD_ENCODING_MASK = 0x2000
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
780 };
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
781
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
782
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
783 /* Parse P pointing the pixel/point size field of the form
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
784 `[A B C D]' which specifies a transformation matrix:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
785
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
786 A B 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
787 C D 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
788 0 0 1
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
789
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
790 by which all glyphs of the font are transformed. The spec says
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
791 that scalar value N for the pixel/point size is equivalent to:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
792 A = N * resx/resy, B = C = 0, D = N.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
793
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
794 Return the scalar value N if the form is valid. Otherwise return
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
795 -1. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
796
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
797 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
798 parse_matrix (p)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
799 char *p;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
800 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
801 double matrix[4];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
802 char *end;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
803 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
804
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
805 for (i = 0, p++; i < 4 && *p && *p != ']'; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
806 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
807 if (*p == '~')
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
808 matrix[i] = - strtod (p + 1, &end);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
809 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
810 matrix[i] = strtod (p, &end);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
811 p = end;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
812 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
813 return (i == 4 ? (int) matrix[3] : -1);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
814 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
815
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
816 /* 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
817 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
818 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
819
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
820 static int
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
821 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
822 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
823 int n;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
824 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
825 /* Copy of FIELD. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
826 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
827 /* 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
828 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
829 struct {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
830 /* Minimum possible field. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
831 int from;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
832 /* Maxinum possible field. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
833 int to;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
834 /* 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
835 int mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
836 } range[XLFD_LAST_INDEX];
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
837 int i, j;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
838 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
839 unsigned range_mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
840
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
841 #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
842 | 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
843 #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
844 #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
845 | XLFD_AVGWIDTH_MASK)
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
846 #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
847
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
848 /* 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
849 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
850 following loop. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
851 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
852 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
853
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
854 /* 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
855 position-based retriction for FIELD[I]. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
856 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
857 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
858 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
859 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
860
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
861 tmp[i] = val;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
862 if (NILP (val))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
863 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
864 /* Wildcard. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
865 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
866 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
867 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
868 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
869 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
870 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
871 /* 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
872 retriction for FIELD[I]. */
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
873 int from, to;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
874 unsigned mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
875
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
876 if (INTEGERP (val))
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
877 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
878 int numeric = XINT (val);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
879
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
880 if (i + 1 == n)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
881 from = to = XLFD_ENCODING_INDEX,
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
882 mask = XLFD_ENCODING_MASK;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
883 else if (numeric == 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
884 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
885 mask = XLFD_PIXEL_MASK | XLFD_LARGENUM_MASK;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
886 else if (numeric <= 48)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
887 from = to = XLFD_PIXEL_INDEX,
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
888 mask = XLFD_PIXEL_MASK;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
889 else
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
890 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
891 mask = XLFD_LARGENUM_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
892 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
893 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
894 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
895 mask = XLFD_NULL_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
896 else if (i == 0)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
897 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
898 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
899 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
900 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
901
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
902 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
903 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
904 mask = XLFD_REGENC_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
905 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
906 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
907 mask = XLFD_ENCODING_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
908 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
909 else if (range_from <= XLFD_WEIGHT_INDEX
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
910 && range_to >= XLFD_WEIGHT_INDEX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
911 && 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
912 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
913 else if (range_from <= XLFD_SLANT_INDEX
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
914 && range_to >= XLFD_SLANT_INDEX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
915 && 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
916 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
917 else if (range_from <= XLFD_SWIDTH_INDEX
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
918 && range_to >= XLFD_SWIDTH_INDEX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
919 && 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
920 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
921 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
922 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
923 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
924 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
925 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
926 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
927 mask = XLFD_SYMBOL_MASK;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
928 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
929
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
930 /* 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
931 mask &= range_mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
932 while (from < range_from)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
933 mask &= ~(1 << from++);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
934 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
935 from++;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
936 while (to > range_to)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
937 mask &= ~(1 << to--);
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
938 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
939 to--;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
940 if (from > to)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
941 return -1;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
942 range[i].from = from;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
943 range[i].to = to;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
944 range[i].mask = mask;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
945
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
946 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
947 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
948 /* 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
949 Reflect it to the other fields. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
950
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
951 /* Following fields should be after FROM. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
952 range_from = from;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
953 /* Preceding fields should be before TO. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
954 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
955 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
956 /* Check FROM for non-wildcard field. */
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
957 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
958 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
959 while (range[j].from < from)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
960 range[j].mask &= ~(1 << range[j].from++);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
961 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
962 from++;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
963 range[j].from = from;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
964 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
965 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
966 from = range[j].from;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
967 if (range[j].to > to)
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 while (range[j].to > to)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
970 range[j].mask &= ~(1 << range[j].to--);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
971 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
972 to--;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
973 range[j].to = to;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
974 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
975 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
976 to = range[j].to;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
977 if (from > to)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
978 return -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
979 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
980 }
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
981 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
982 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
983
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
984 /* 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
985 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
986 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
987 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
988 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
989 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
990 /* 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
991 return -1;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
992 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
993 field[j] = Qnil;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
994 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
995 field[j++] = tmp[i];
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
996 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
997 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
998 return -1;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
999 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
1000 field[j] = Qnil;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1001 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
1002 field[XLFD_ENCODING_INDEX]
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1003 = 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
1004 return 0;
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1005 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1006
92113
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1007
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1008 #ifdef ENABLE_CHECKING
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1009 /* 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
1010 static int
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1011 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
1012 {
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1013 while (*pattern && *name)
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1014 {
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1015 if (*pattern == *name)
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1016 pattern++;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1017 else if (*pattern == '*')
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1018 if (*name == pattern[1])
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1019 pattern += 2;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1020 else
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1021 ;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1022 else
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1023 return 0;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1024 name++;
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 return 1;
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1027 }
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1028
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1029 /* 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
1030 static int
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1031 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
1032 {
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1033 char name_check[256];
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1034 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
1035 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
1036 }
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1037
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1038 #endif
2a9ed1c080b4 (font_match_xlfd, font_check_xlfd_parse): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91943
diff changeset
1039
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1040
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1041 /* 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
1042 (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
1043 follows:
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1044 specified XLFD fields FONT property
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1045 --------------------- -------------
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1046 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
1047 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
1048 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
1049
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1050 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
1051
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1052 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
1053 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
1054 a fully specified XLFD. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1055
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1056 int
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1057 font_parse_xlfd (name, font)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1058 char *name;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1059 Lisp_Object font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1060 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1061 int len = strlen (name);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1062 int i, j, n;
90695
a1cd7344d6a2 (font_parse_xlfd): Fix the array size of `f'.
Kenichi Handa <handa@m17n.org>
parents: 90677
diff changeset
1063 char *f[XLFD_LAST_INDEX + 1];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1064 Lisp_Object val;
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1065 char *p;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1066
101422
9e1fcd81389c (font_parse_xlfd): Handle patterns of length < 2.
Chong Yidong <cyd@stupidchicken.com>
parents: 101293
diff changeset
1067 if (len > 255 || !len)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1068 /* Maximum XLFD name length is 255. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1069 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1070 /* 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
1071 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
1072 i = 1, f[XLFD_FOUNDRY_INDEX] = name;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1073 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1074 i = 0;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1075 for (p = name + i; *p; p++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1076 if (*p == '-')
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1077 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1078 f[i++] = p + 1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1079 if (i == XLFD_LAST_INDEX)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1080 break;
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] = name + len;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1083
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1084 #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
1085 #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
1086
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1087 if (i == XLFD_LAST_INDEX)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1088 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1089 /* Fully specified XLFD. */
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1090 int pixel_size;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1091
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1092 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
1093 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
1094 for (i = XLFD_WEIGHT_INDEX, j = FONT_WEIGHT_INDEX;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1095 i <= XLFD_SWIDTH_INDEX; i++, j++)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1096 {
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1097 val = INTERN_FIELD_SYM (i);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1098 if (! NILP (val))
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1099 {
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1100 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
1101 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1102 ASET (font, j, make_number (n));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1103 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1104 }
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1105 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
1106 if (strcmp (f[XLFD_REGISTRY_INDEX], "*-*") == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1107 ASET (font, FONT_REGISTRY_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1108 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1109 ASET (font, FONT_REGISTRY_INDEX,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1110 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
1111 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
1112 1));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1113 p = f[XLFD_PIXEL_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1114 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
1115 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
1116 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1117 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1118 val = INTERN_FIELD (XLFD_PIXEL_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1119 if (INTEGERP (val))
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1120 ASET (font, FONT_SIZE_INDEX, val);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1121 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1122 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1123 double point_size = -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1124
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1125 font_assert (FONT_SPEC_P (font));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1126 p = f[XLFD_POINT_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1127 if (*p == '[')
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1128 point_size = parse_matrix (p);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1129 else if (isdigit (*p))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1130 point_size = atoi (p), point_size /= 10;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1131 if (point_size >= 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1132 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
1133 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1134 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1135
104091
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1136 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
1137 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
1138 return -1;
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1139 ASET (font, FONT_DPI_INDEX, val);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1140 val = INTERN_FIELD (XLFD_SPACING_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1141 if (! NILP (val))
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1142 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1143 val = font_prop_validate_spacing (QCspacing, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1144 if (! INTEGERP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1145 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1146 ASET (font, FONT_SPACING_INDEX, val);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1147 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1148 p = f[XLFD_AVGWIDTH_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1149 if (*p == '~')
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1150 p++;
104091
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1151 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
1152 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
1153 return -1;
5ad8c9beecab (font_parse_xlfd): Check DPI and AVGWIDTH properties more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 103889
diff changeset
1154 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
1155 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1156 else
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1157 {
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1158 int wild_card_found = 0;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1159 Lisp_Object prop[XLFD_LAST_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1160
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1161 if (FONT_ENTITY_P (font))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1162 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1163 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
1164 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1165 if (*f[j] == '*')
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1166 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1167 if (f[j][1] && f[j][1] != '-')
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1168 return -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1169 prop[j] = Qnil;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1170 wild_card_found = 1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1171 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1172 else if (j + 1 < i)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1173 prop[j] = INTERN_FIELD (j);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1174 else
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1175 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
1176 }
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1177 if (! wild_card_found)
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
1178 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1179 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
1180 return -1;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1181
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1182 ASET (font, FONT_FOUNDRY_INDEX, prop[XLFD_FOUNDRY_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1183 ASET (font, FONT_FAMILY_INDEX, prop[XLFD_FAMILY_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1184 for (i = XLFD_WEIGHT_INDEX, j = FONT_WEIGHT_INDEX;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1185 i <= XLFD_SWIDTH_INDEX; i++, j++)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1186 if (! NILP (prop[i]))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1187 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1188 if ((n = font_style_to_value (j, prop[i], 1)) < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1189 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1190 ASET (font, j, make_number (n));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1191 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1192 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
1193 val = prop[XLFD_REGISTRY_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1194 if (NILP (val))
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1195 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1196 val = prop[XLFD_ENCODING_INDEX];
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1197 if (! NILP (val))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1198 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
1199 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1200 else if (NILP (prop[XLFD_ENCODING_INDEX]))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1201 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
1202 else
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1203 val = concat3 (SYMBOL_NAME (val), build_string ("-"),
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1204 SYMBOL_NAME (prop[XLFD_ENCODING_INDEX]));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1205 if (! NILP (val))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1206 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
1207
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1208 if (INTEGERP (prop[XLFD_PIXEL_INDEX]))
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1209 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
1210 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
1211 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1212 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
1213
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1214 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
1215 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1216
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1217 if (INTEGERP (prop[XLFD_RESX_INDEX]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1218 ASET (font, FONT_DPI_INDEX, prop[XLFD_RESY_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1219 if (! NILP (prop[XLFD_SPACING_INDEX]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1220 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1221 val = font_prop_validate_spacing (QCspacing,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1222 prop[XLFD_SPACING_INDEX]);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1223 if (! INTEGERP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1224 return -1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1225 ASET (font, FONT_SPACING_INDEX, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1226 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1227 if (INTEGERP (prop[XLFD_AVGWIDTH_INDEX]))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1228 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
1229 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1230
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1231 return 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1232 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1233
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1234 /* Store XLFD name of FONT (font-spec or font-entity) in NAME (NBYTES
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1235 length), and return the name length. If FONT_SIZE_INDEX of FONT is
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1236 0, use PIXEL_SIZE instead. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1237
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1238 int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1239 font_unparse_xlfd (font, pixel_size, name, nbytes)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1240 Lisp_Object font;
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1241 int pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1242 char *name;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1243 int nbytes;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1244 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1245 char *f[XLFD_REGISTRY_INDEX + 1];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1246 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1247 int i, j, len = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1248
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1249 font_assert (FONTP (font));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1250
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1251 for (i = FONT_FOUNDRY_INDEX, j = XLFD_FOUNDRY_INDEX; i <= FONT_REGISTRY_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1252 i++, j++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1253 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1254 if (i == FONT_ADSTYLE_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1255 j = XLFD_ADSTYLE_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1256 else if (i == FONT_REGISTRY_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1257 j = XLFD_REGISTRY_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1258 val = AREF (font, i);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1259 if (NILP (val))
90439
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1260 {
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1261 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
1262 f[j] = "*-*", len += 4;
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1263 else
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1264 f[j] = "*", len += 2;
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1265 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1266 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1267 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1268 if (SYMBOLP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1269 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
1270 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
1271 && ! strchr ((char *) SDATA (val), '-'))
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1272 {
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1273 /* 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
1274 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
1275 {
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1276 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
1277 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
1278 len += SBYTES (val) + 3;
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1279 }
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1280 else
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) + 4);
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) + 4;
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 }
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1287 else
fb253905e9c3 * font.c (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved from
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1288 f[j] = (char *) SDATA (val), len += SBYTES (val) + 1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1289 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1290 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1291
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1292 for (i = FONT_WEIGHT_INDEX, j = XLFD_WEIGHT_INDEX; i <= FONT_WIDTH_INDEX;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1293 i++, j++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1294 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1295 val = font_style_symbolic (font, i, 0);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1296 if (NILP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1297 f[j] = "*", len += 2;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1298 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1299 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1300 val = SYMBOL_NAME (val);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1301 f[j] = (char *) SDATA (val), len += SBYTES (val) + 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1302 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1303 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1304
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1305 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
1306 font_assert (NUMBERP (val) || NILP (val));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1307 if (INTEGERP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1308 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1309 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
1310 if (i <= 0)
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1311 i = pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1312 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
1313 {
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1314 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
1315 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
1316 }
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1317 else
c5e5ad126614 (font_unparse_xlfd): Don't ignore integer pixel size specs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91909
diff changeset
1318 f[XLFD_PIXEL_INDEX] = "*-*", len += 4;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1319 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1320 else if (FLOATP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1321 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1322 i = XFLOAT_DATA (val) * 10;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1323 f[XLFD_PIXEL_INDEX] = alloca (12);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1324 len += sprintf (f[XLFD_PIXEL_INDEX], "*-%d", i) + 1;
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
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1327 f[XLFD_PIXEL_INDEX] = "*-*", len += 4;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1328
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1329 if (INTEGERP (AREF (font, FONT_DPI_INDEX)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1330 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1331 i = XINT (AREF (font, FONT_DPI_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1332 f[XLFD_RESX_INDEX] = alloca (22);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1333 len += sprintf (f[XLFD_RESX_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1334 "%d-%d", i, i) + 1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1335 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1336 else
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1337 f[XLFD_RESX_INDEX] = "*-*", len += 4;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1338 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
1339 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1340 int spacing = XINT (AREF (font, FONT_SPACING_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1341
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1342 f[XLFD_SPACING_INDEX] = (spacing <= FONT_SPACING_PROPORTIONAL ? "p"
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1343 : spacing <= FONT_SPACING_DUAL ? "d"
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1344 : spacing <= FONT_SPACING_MONO ? "m"
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1345 : "c");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1346 len += 2;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1347 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1348 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1349 f[XLFD_SPACING_INDEX] = "*", len += 2;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1350 if (INTEGERP (AREF (font, FONT_AVGWIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1351 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1352 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
1353 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
1354 (long) XINT (AREF (font, FONT_AVGWIDTH_INDEX))) + 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1355 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1356 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1357 f[XLFD_AVGWIDTH_INDEX] = "*", len += 2;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1358 len++; /* for terminating '\0'. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1359 if (len >= nbytes)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1360 return -1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1361 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
1362 f[XLFD_FOUNDRY_INDEX], f[XLFD_FAMILY_INDEX],
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1363 f[XLFD_WEIGHT_INDEX], f[XLFD_SLANT_INDEX],
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1364 f[XLFD_SWIDTH_INDEX], f[XLFD_ADSTYLE_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1365 f[XLFD_PIXEL_INDEX], f[XLFD_RESX_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1366 f[XLFD_SPACING_INDEX], f[XLFD_AVGWIDTH_INDEX],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1367 f[XLFD_REGISTRY_INDEX]);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1368 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1369
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1370 /* 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
1371 (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
1372 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
1373 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
1374
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1375 The fontconfig format is
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1376
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1377 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
1378
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1379 The GTK format is
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 FAMILY [PROPS...] [SIZE]
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 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
1384
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1385 int
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1386 font_parse_fcname (name, font)
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1387 char *name;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1388 Lisp_Object font;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1389 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1390 char *p, *q;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1391 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
1392 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
1393 int len = strlen (name);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1394
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1395 if (len == 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1396 return -1;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1397
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1398 for (p = name; *p; p++)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1399 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1400 if (*p == '\\' && p[1])
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1401 p++;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1402 else if (*p == ':')
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1403 {
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1404 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
1405 break;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1406 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1407 else if (*p == '-')
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1408 {
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1409 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
1410 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
1411 if (! isdigit(*q))
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1412 {
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1413 if (*q != '.' || decimal)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1414 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1415 size_found = 0;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1416 break;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1417 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1418 decimal = 1;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1419 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1420 if (size_found)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1421 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1422 family_end = p;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1423 size_beg = p + 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1424 size_end = q;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1425 break;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1426 }
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 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1429
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1430 if (family_end)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1431 {
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1432 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
1433
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1434 /* 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
1435 if (family_end > name)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1436 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1437 Lisp_Object family;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1438 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
1439 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
1440 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1441 if (size_beg)
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 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
1444 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
1445 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
1446 props_beg = size_end;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1447 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1448 if (props_beg)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1449 {
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1450 /* 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
1451 Lisp_Object val;
96016
c1105df0f9c8 (font_parse_fcname): Fix handling of unknown-spec string.
Chong Yidong <cyd@stupidchicken.com>
parents: 96014
diff changeset
1452
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1453 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
1454 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1455 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
1456 if (*q != '=')
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1457 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1458 /* 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
1459 int word_len;
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1460 p = p + 1;
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1461 word_len = q - p;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1462 val = font_intern_prop (p, q - p, 1);
95984
cf2b26adbb9b Tweak last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 95983
diff changeset
1463
cf2b26adbb9b Tweak last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 95983
diff changeset
1464 #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
1465
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1466 if (PROP_MATCH ("light", 5)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1467 || PROP_MATCH ("medium", 6)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1468 || PROP_MATCH ("demibold", 8)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1469 || PROP_MATCH ("bold", 4)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1470 || PROP_MATCH ("black", 5))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1471 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
1472 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
1473 || PROP_MATCH ("italic", 6)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1474 || PROP_MATCH ("oblique", 7))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1475 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
1476 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
1477 ASET (font, FONT_SPACING_INDEX,
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1478 make_number (FONT_SPACING_CHARCELL));
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1479 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
1480 ASET (font, FONT_SPACING_INDEX,
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1481 make_number (FONT_SPACING_MONO));
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1482 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
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_PROPORTIONAL));
95984
cf2b26adbb9b Tweak last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 95983
diff changeset
1485 #undef PROP_MATCH
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1486 }
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1487 else
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1488 {
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1489 /* KEY=VAL pairs */
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1490 Lisp_Object key;
96049
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1491 int prop;
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1492
380525b11593 (font_parse_fcname): For known key symbols, intern using correct
Chong Yidong <cyd@stupidchicken.com>
parents: 96030
diff changeset
1493 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
1494 prop = FONT_SIZE_INDEX;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1495 else
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1496 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1497 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
1498 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
1499 }
96016
c1105df0f9c8 (font_parse_fcname): Fix handling of unknown-spec string.
Chong Yidong <cyd@stupidchicken.com>
parents: 96014
diff changeset
1500
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1501 p = q + 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1502 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
1503 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
1504
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1505 if (prop >= FONT_FOUNDRY_INDEX
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1506 && 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
1507 ASET (font, prop, font_prop_validate (prop, Qnil, val));
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1508 else
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1509 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1510 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
1511 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
1512 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1513 }
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
1514 p = q;
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1515 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1516 }
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1517
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1518 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
1519 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1520 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
1521 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
1522 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
1523 (*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
1524 }
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
1525
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1526 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1527 else
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1528 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1529 /* 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
1530 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
1531 Lisp_Object prop;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1532 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
1533
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1534 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
1535 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1536 if (isdigit (*p))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1537 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1538 int size_found = 1;
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
1539
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1540 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
1541 if (! isdigit (*q))
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1542 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1543 size_found = 0;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1544 break;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1545 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1546 if (size_found)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1547 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1548 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
1549 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
1550 continue;
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 }
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 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
1555 if (*q == '\\' && q[1])
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1556 q++;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1557 word_len = q - p;
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 #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
1560
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1561 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
1562 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1563 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1564 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
1565 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
1566 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1567 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
1568 {
95790
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 ("light", 5, 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);
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
1572 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1573 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
1574 {
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 ("semi-bold", 9, 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);
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1578 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1579 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
1580 {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1581 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1582 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
1583 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
1584 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1585 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
1586 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1587 prop_found = 1;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1588 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
1589 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
1590 }
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1591 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
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 ("oblique", 7, 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_SLANT_INDEX, prop);
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1596 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1597 else {
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1598 if (prop_found)
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1599 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
1600 family_end = q;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1601 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1602 }
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1603 #undef PROP_MATCH
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1604
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1605 if (family_end)
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1606 {
95790
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1607 Lisp_Object family;
a486132d892c (font_parse_fcname): Accept GTK-style font names too.
Chong Yidong <cyd@stupidchicken.com>
parents: 95746
diff changeset
1608 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
1609 ASET (font, FONT_FAMILY_INDEX, family);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1610 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1611 }
95886
c8bc52f94b6d (syms_of_font) <font-weight-table, font-slant-table, font-width-table>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95875
diff changeset
1612
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
1613 return 0;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1614 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1615
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1616 /* 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
1617 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
1618 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
1619
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1620 int
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1621 font_unparse_fcname (font, pixel_size, name, nbytes)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1622 Lisp_Object font;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1623 int pixel_size;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1624 char *name;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1625 int nbytes;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1626 {
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1627 Lisp_Object family, foundry;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1628 Lisp_Object tail, val;
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1629 int point_size;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1630 int i, len = 1;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1631 char *p;
90476
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1632 Lisp_Object styles[3];
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
1633 char *style_names[3] = { "weight", "slant", "width" };
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1634 char work[256];
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1635
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1636 family = AREF (font, FONT_FAMILY_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1637 if (! NILP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1638 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1639 if (SYMBOLP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1640 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1641 family = SYMBOL_NAME (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1642 len += SBYTES (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1643 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1644 else
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1645 family = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1646 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1647
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1648 val = AREF (font, FONT_SIZE_INDEX);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1649 if (INTEGERP (val))
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1650 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1651 if (XINT (val) != 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1652 pixel_size = XINT (val);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1653 point_size = -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1654 len += 21; /* for ":pixelsize=NUM" */
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1655 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1656 else if (FLOATP (val))
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1657 {
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1658 pixel_size = -1;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1659 point_size = (int) XFLOAT_DATA (val);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1660 len += 11; /* for "-NUM" */
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1661 }
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1662
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1663 foundry = AREF (font, FONT_FOUNDRY_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1664 if (! NILP (foundry))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1665 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1666 if (SYMBOLP (foundry))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1667 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1668 foundry = SYMBOL_NAME (foundry);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1669 len += 9 + SBYTES (foundry); /* ":foundry=NAME" */
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 else
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1672 foundry = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1673 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1674
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1675 for (i = 0; i < 3; i++)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1676 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1677 styles[i] = font_style_symbolic (font, FONT_WEIGHT_INDEX + i, 0);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1678 if (! NILP (styles[i]))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1679 len += sprintf (work, ":%s=%s", style_names[i],
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1680 SDATA (SYMBOL_NAME (styles[i])));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1681 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1682
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1683 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
1684 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
1685 if (INTEGERP (AREF (font, FONT_SPACING_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1686 len += strlen (":spacing=100");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1687 if (INTEGERP (AREF (font, FONT_AVGWIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1688 len += strlen (":scalable=false"); /* or ":scalable=true" */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1689 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
1690 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1691 Lisp_Object key = XCAR (XCAR (tail)), val = XCDR (XCAR (tail));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1692
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1693 len += SBYTES (SYMBOL_NAME (key)) + 1; /* for :KEY= */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1694 if (STRINGP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1695 len += SBYTES (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1696 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
1697 len += sprintf (work, "%ld", (long) XINT (val));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1698 else if (SYMBOLP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1699 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
1700 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1701
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1702 if (len > nbytes)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1703 return -1;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1704 p = name;
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1705 if (! NILP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1706 p += sprintf (p, "%s", SDATA (family));
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1707 if (point_size > 0)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1708 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1709 if (p == name)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1710 p += sprintf (p, "%d", point_size);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1711 else
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1712 p += sprintf (p, "-%d", point_size);
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1713 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1714 else if (pixel_size > 0)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1715 p += sprintf (p, ":pixelsize=%d", pixel_size);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1716 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
1717 p += sprintf (p, ":foundry=%s",
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1718 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
1719 for (i = 0; i < 3; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1720 if (! NILP (styles[i]))
90476
017a6aec5d77 (font_parse_fcname): Fix parsing of point-size.
Kenichi Handa <handa@m17n.org>
parents: 90468
diff changeset
1721 p += sprintf (p, ":%s=%s", style_names[i],
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1722 SDATA (SYMBOL_NAME (styles[i])));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1723 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
1724 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
1725 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
1726 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
1727 (long) XINT (AREF (font, FONT_SPACING_INDEX)));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1728 if (INTEGERP (AREF (font, FONT_AVGWIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1729 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1730 if (XINT (AREF (font, FONT_AVGWIDTH_INDEX)) == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1731 p += sprintf (p, ":scalable=true");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1732 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1733 p += sprintf (p, ":scalable=false");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1734 }
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1735 return (p - name);
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1736 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1737
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1738 /* 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
1739 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
1740 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
1741 size. */
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1742
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1743 int
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1744 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
1745 Lisp_Object font;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1746 struct frame *f;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1747 char *name;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1748 int nbytes;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1749 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1750 char *p;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1751 int len = 1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1752 Lisp_Object family, weight, slant, size;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1753 int point_size = -1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1754
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1755 family = AREF (font, FONT_FAMILY_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1756 if (! NILP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1757 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1758 if (! SYMBOLP (family))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1759 return -1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1760 family = SYMBOL_NAME (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1761 len += SBYTES (family);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1762 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1763
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1764 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
1765 if (EQ (weight, Qnormal))
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1766 weight = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1767 else if (! NILP (weight))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1768 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1769 weight = SYMBOL_NAME (weight);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1770 len += SBYTES (weight);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1771 }
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 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
1774 if (EQ (slant, Qnormal))
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1775 slant = Qnil;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1776 else if (! NILP (slant))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1777 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1778 slant = SYMBOL_NAME (slant);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1779 len += SBYTES (slant);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1780 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1781
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1782 size = AREF (font, FONT_SIZE_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1783 /* Convert pixel size to point size. */
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1784 if (INTEGERP (size))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1785 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1786 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
1787 int dpi = 75;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1788 if (INTEGERP (font_dpi))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1789 dpi = XINT (font_dpi);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1790 else if (f)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1791 dpi = f->resy;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1792 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
1793 len += 11;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1794 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1795 else if (FLOATP (size))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1796 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1797 point_size = (int) XFLOAT_DATA (size);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1798 len += 11;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1799 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1800
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1801 if (len > nbytes)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1802 return -1;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1803
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1804 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
1805
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1806 if (! NILP (weight))
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 char *q = p;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1809 p += sprintf (p, " %s", SDATA (weight));
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1810 q[1] = toupper (q[1]);
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
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1813 if (! NILP (slant))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1814 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1815 char *q = p;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1816 p += sprintf (p, " %s", SDATA (slant));
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1817 q[1] = toupper (q[1]);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1818 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1819
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1820 if (point_size > 0)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1821 p += sprintf (p, " %d", point_size);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1822
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
1823 return (p - name);
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
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1826 /* 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
1827 (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
1828 0. Otherwise return -1. */
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1829
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1830 static int
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1831 font_parse_name (name, font)
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1832 char *name;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1833 Lisp_Object font;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1834 {
101293
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
1835 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
1836 return font_parse_xlfd (name, font);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
1837 return font_parse_fcname (name, font);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1838 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
1839
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1840
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1841 /* 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
1842 "FAMILY-FOUNDRY". REGISTRY may not contain charset-encoding
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1843 part. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
1844
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1845 void
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1846 font_parse_family_registry (family, registry, font_spec)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1847 Lisp_Object family, registry, font_spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1848 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1849 int len;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1850 char *p0, *p1;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1851
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
1852 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
1853 && NILP (AREF (font_spec, FONT_FAMILY_INDEX)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1854 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1855 CHECK_STRING (family);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1856 len = SBYTES (family);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1857 p0 = (char *) SDATA (family);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1858 p1 = index (p0, '-');
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1859 if (p1)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1860 {
103369
97cfffb6f666 (font_parse_family_registry): Fix for one-char foundry.
Kenichi Handa <handa@m17n.org>
parents: 103255
diff changeset
1861 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
1862 && 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
1863 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
1864 p1++;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1865 len -= p1 - p0;
95746
b490fda95b13 (font_intern_prop): New arg force_symbol.
Kenichi Handa <handa@m17n.org>
parents: 95699
diff changeset
1866 Ffont_put (font_spec, QCfamily, font_intern_prop (p1, len, 1));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1867 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1868 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1869 ASET (font_spec, FONT_FAMILY_INDEX, Fintern (family, Qnil));
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 if (! NILP (registry))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1872 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1873 /* Convert "XXX" and "XXX*" to "XXX*-*". */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1874 CHECK_STRING (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1875 len = SBYTES (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1876 p0 = (char *) SDATA (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1877 p1 = index (p0, '-');
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1878 if (! p1)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1879 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1880 if (SDATA (registry)[len - 1] == '*')
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1881 registry = concat2 (registry, build_string ("-*"));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1882 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1883 registry = concat2 (registry, build_string ("*-*"));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1884 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1885 registry = Fdowncase (registry);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1886 ASET (font_spec, FONT_REGISTRY_INDEX, Fintern (registry, Qnil));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1887 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1888 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1889
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
1890
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1891 /* This part (through the next ^L) is still experimental and not
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1892 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
1893
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
1894 /* OTF handler */
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
1895
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
1896 #if 0
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
1897
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1898 #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
1899 #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
1900
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1901 static int
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1902 check_gstring (gstring)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1903 Lisp_Object gstring;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1904 {
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1905 Lisp_Object val;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1906 int i, j;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1907
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1908 CHECK_VECTOR (gstring);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1909 val = AREF (gstring, 0);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1910 CHECK_VECTOR (val);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1911 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
1912 goto err;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1913 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
1914 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
1915 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
1916 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
1917 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
1918 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
1919 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
1920 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
1921 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
1922 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
1923 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
1924
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
1925 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
1926 {
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1927 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
1928 CHECK_VECTOR (val);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1929 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
1930 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
1931 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
1932 break;
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1933 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
1934 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
1935 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
1936 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
1937 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
1938 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
1939 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
1940 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
1941 {
91550
83267bc0360a (check_gstring): Use them and AREF to access the vector before
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91360
diff changeset
1942 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
1943 CHECK_VECTOR (val);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1944 if (ASIZE (val) < 3)
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1945 goto err;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1946 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
1947 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
1948 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1949 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1950 return i;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1951 err:
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1952 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
1953 return -1;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1954 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
1955
90823
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1956 static void
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1957 check_otf_features (otf_features)
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1958 Lisp_Object otf_features;
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1959 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1960 Lisp_Object val;
90823
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1961
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1962 CHECK_CONS (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1963 CHECK_SYMBOL (XCAR (otf_features));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1964 otf_features = XCDR (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1965 CHECK_CONS (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1966 CHECK_SYMBOL (XCAR (otf_features));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1967 otf_features = XCDR (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1968 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
1969 {
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1970 CHECK_SYMBOL (Fcar (val));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1971 if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1972 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
1973 }
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1974 otf_features = XCDR (otf_features);
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1975 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
1976 {
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1977 CHECK_SYMBOL (Fcar (val));
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1978 if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1979 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
1980 }
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1981 }
b08ad368c328 (check_otf_features): Define it regardless of
Kenichi Handa <handa@m17n.org>
parents: 90817
diff changeset
1982
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1983 #ifdef HAVE_LIBOTF
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1984 #include <otf.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1985
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
1986 Lisp_Object otf_list;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1987
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1988 static Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1989 otf_tag_symbol (tag)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1990 OTF_Tag tag;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1991 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1992 char name[5];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1993
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1994 OTF_tag_name (tag, name);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1995 return Fintern (make_unibyte_string (name, 4), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1996 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1997
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1998 static OTF *
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
1999 otf_open (file)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2000 Lisp_Object file;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2001 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2002 Lisp_Object val = Fassoc (file, otf_list);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2003 OTF *otf;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2004
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2005 if (! NILP (val))
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2006 otf = XSAVE_VALUE (XCDR (val))->pointer;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2007 else
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2008 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2009 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
2010 val = make_save_value (otf, 0);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2011 otf_list = Fcons (Fcons (file, val), otf_list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2012 }
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2013 return otf;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2014 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2015
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2016
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2017 /* Return a list describing which scripts/languages FONT supports by
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2018 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
2019 (struct font_driver).otf_capability. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2020
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2021 Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2022 font_otf_capability (font)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2023 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2024 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2025 OTF *otf;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2026 Lisp_Object capability = Fcons (Qnil, Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2027 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2028
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2029 otf = otf_open (font->props[FONT_FILE_INDEX]);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2030 if (! otf)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2031 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2032 for (i = 0; i < 2; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2033 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2034 OTF_GSUB_GPOS *gsub_gpos;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2035 Lisp_Object script_list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2036 int j;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2037
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2038 if (OTF_get_features (otf, i == 0) < 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2039 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2040 gsub_gpos = i == 0 ? otf->gsub : otf->gpos;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2041 for (j = gsub_gpos->ScriptList.ScriptCount - 1; j >= 0; j--)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2042 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2043 OTF_Script *script = gsub_gpos->ScriptList.Script + j;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2044 Lisp_Object langsys_list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2045 Lisp_Object script_tag = otf_tag_symbol (script->ScriptTag);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2046 int k;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2047
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2048 for (k = script->LangSysCount; k >= 0; k--)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2049 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2050 OTF_LangSys *langsys;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2051 Lisp_Object feature_list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2052 Lisp_Object langsys_tag;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2053 int l;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2054
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2055 if (k == script->LangSysCount)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2056 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2057 langsys = &script->DefaultLangSys;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2058 langsys_tag = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2059 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2060 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2061 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2062 langsys = script->LangSys + k;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2063 langsys_tag
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2064 = otf_tag_symbol (script->LangSysRecord[k].LangSysTag);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2065 }
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2066 for (l = langsys->FeatureCount - 1; l >= 0; l--)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2067 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2068 OTF_Feature *feature
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2069 = gsub_gpos->FeatureList.Feature + langsys->FeatureIndex[l];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2070 Lisp_Object feature_tag
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2071 = otf_tag_symbol (feature->FeatureTag);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2072
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2073 feature_list = Fcons (feature_tag, feature_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2074 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2075 langsys_list = Fcons (Fcons (langsys_tag, feature_list),
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2076 langsys_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2077 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2078 script_list = Fcons (Fcons (script_tag, langsys_list),
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2079 script_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2080 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2081
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2082 if (i == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2083 XSETCAR (capability, script_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2084 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2085 XSETCDR (capability, script_list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2086 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2087
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2088 return capability;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2089 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2090
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2091 /* 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
2092 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
2093 assured that the sufficient memory has already allocated for
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2094 FEATURES. */
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2095
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2096 static void
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2097 generate_otf_features (spec, features)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2098 Lisp_Object spec;
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2099 char *features;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2100 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2101 Lisp_Object val;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2102 char *p;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2103 int asterisk;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2104
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2105 p = features;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2106 *p = '\0';
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2107 for (asterisk = 0; CONSP (spec); spec = XCDR (spec))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2108 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2109 val = XCAR (spec);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2110 CHECK_SYMBOL (val);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2111 if (p > features)
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2112 *p++ = ',';
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2113 if (SREF (SYMBOL_NAME (val), 0) == '*')
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2114 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2115 asterisk = 1;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2116 *p++ = '*';
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2117 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2118 else if (! asterisk)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2119 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2120 val = SYMBOL_NAME (val);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2121 p += sprintf (p, "%s", SDATA (val));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2122 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2123 else
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2124 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2125 val = SYMBOL_NAME (val);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2126 p += sprintf (p, "~%s", SDATA (val));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2127 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2128 }
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2129 if (CONSP (spec))
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2130 error ("OTF spec too long");
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2131 }
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
2132
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2133 Lisp_Object
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2134 font_otf_DeviceTable (device_table)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2135 OTF_DeviceTable *device_table;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2136 {
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2137 int len = device_table->StartSize - device_table->EndSize + 1;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2138
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2139 return Fcons (make_number (len),
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2140 make_unibyte_string (device_table->DeltaValue, len));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2141 }
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2142
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2143 Lisp_Object
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2144 font_otf_ValueRecord (value_format, value_record)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2145 int value_format;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2146 OTF_ValueRecord *value_record;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2147 {
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2148 Lisp_Object val = Fmake_vector (make_number (8), Qnil);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2149
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2150 if (value_format & OTF_XPlacement)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2151 ASET (val, 0, make_number (value_record->XPlacement));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2152 if (value_format & OTF_YPlacement)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2153 ASET (val, 1, make_number (value_record->YPlacement));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2154 if (value_format & OTF_XAdvance)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2155 ASET (val, 2, make_number (value_record->XAdvance));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2156 if (value_format & OTF_YAdvance)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2157 ASET (val, 3, make_number (value_record->YAdvance));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2158 if (value_format & OTF_XPlaDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2159 ASET (val, 4, font_otf_DeviceTable (&value_record->XPlaDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2160 if (value_format & OTF_YPlaDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2161 ASET (val, 4, font_otf_DeviceTable (&value_record->YPlaDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2162 if (value_format & OTF_XAdvDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2163 ASET (val, 4, font_otf_DeviceTable (&value_record->XAdvDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2164 if (value_format & OTF_YAdvDevice)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2165 ASET (val, 4, font_otf_DeviceTable (&value_record->YAdvDevice));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2166 return val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2167 }
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 Lisp_Object
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2170 font_otf_Anchor (anchor)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2171 OTF_Anchor *anchor;
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 val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2174
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2175 val = Fmake_vector (make_number (anchor->AnchorFormat + 1), Qnil);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2176 ASET (val, 0, make_number (anchor->XCoordinate));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2177 ASET (val, 1, make_number (anchor->YCoordinate));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2178 if (anchor->AnchorFormat == 2)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2179 ASET (val, 2, make_number (anchor->f.f1.AnchorPoint));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2180 else
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2181 {
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2182 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
2183 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
2184 }
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2185 return val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
2186 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2187 #endif /* HAVE_LIBOTF */
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
2188 #endif /* 0 */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2189
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2190
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2191 /* Font sorting */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2192
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2193 static unsigned font_score P_ ((Lisp_Object, Lisp_Object *));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2194 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
2195 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
2196 Lisp_Object, int));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2197
100385
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2198 /* 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
2199 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
2200
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2201 static double
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2202 font_rescale_ratio (font_entity)
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2203 Lisp_Object font_entity;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2204 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2205 Lisp_Object tail, elt;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2206 Lisp_Object name = Qnil;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2207
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2208 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
2209 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2210 elt = XCAR (tail);
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2211 if (FLOATP (XCDR (elt)))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2212 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2213 if (STRINGP (XCAR (elt)))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2214 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2215 if (NILP (name))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2216 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
2217 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
2218 return XFLOAT_DATA (XCDR (elt));
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2219 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2220 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
2221 {
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2222 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
2223 return XFLOAT_DATA (XCDR (elt));
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2224 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2225 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2226 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2227 return 1.0;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2228 }
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2229
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2230 /* We sort fonts by scoring each of them against a specified
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2231 font-spec. The score value is 32 bit (`unsigned'), and the smaller
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2232 the value is, the closer the font is to the font-spec.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2233
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2234 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
2235 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
2236
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2237 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
2238 WEIGHT, SLANT, WIDTH, and SIZE. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2239
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2240 /* 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
2241 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
2242 FONT_REGISTRY_INDEX are not used. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2243 static int sort_shift_bits[FONT_SIZE_INDEX + 1];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2244
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2245 /* 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
2246 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
2247 SPEC_PROP. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2248
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2249 static unsigned
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2250 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
2251 Lisp_Object entity, *spec_prop;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2252 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2253 unsigned score = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2254 int i;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2255
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2256 /* Score three style numeric fields. Maximum difference is 127. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2257 for (i = FONT_WEIGHT_INDEX; i <= FONT_WIDTH_INDEX; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2258 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
2259 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2260 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
2261
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2262 if (diff < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2263 diff = - diff;
95875
d56319d0f726 (font_score): Ignore the diffference of alias style symbols.
Kenichi Handa <handa@m17n.org>
parents: 95869
diff changeset
2264 if (diff > 0)
d56319d0f726 (font_score): Ignore the diffference of alias style symbols.
Kenichi Handa <handa@m17n.org>
parents: 95869
diff changeset
2265 score |= min (diff, 127) << sort_shift_bits[i];
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2266 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2267
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2268 /* Score the size. Maximum difference is 127. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2269 i = FONT_SIZE_INDEX;
100385
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2270 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
2271 && XINT (AREF (entity, FONT_SIZE_INDEX)) > 0)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2272 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2273 /* 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
2274 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
2275 int diff;
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2276 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
2277
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2278 if (CONSP (Vface_font_rescale_alist))
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2279 pixel_size *= font_rescale_ratio (entity);
4504aa7cb434 (font_rescale_ratio): Moved from xfaces.c. Argument
Kenichi Handa <handa@m17n.org>
parents: 100336
diff changeset
2280 diff = pixel_size - XINT (AREF (entity, FONT_SIZE_INDEX));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2281 if (diff < 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2282 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
2283 diff <<= 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2284 if (! NILP (spec_prop[FONT_DPI_INDEX])
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2285 && ! EQ (spec_prop[FONT_DPI_INDEX], AREF (entity, FONT_DPI_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2286 diff |= 1;
103041
3049105cf79e (font_score): Check AVGWIDTH too.
Kenichi Handa <handa@m17n.org>
parents: 103037
diff changeset
2287 if (! NILP (spec_prop[FONT_AVGWIDTH_INDEX])
3049105cf79e (font_score): Check AVGWIDTH too.
Kenichi Handa <handa@m17n.org>
parents: 103037
diff changeset
2288 && ! 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
2289 diff |= 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2290 score |= min (diff, 127) << sort_shift_bits[FONT_SIZE_INDEX];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2291 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2292
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2293 return score;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2294 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2295
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2296
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2297 /* 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
2298 of font-entity vectors. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2299
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2300 static Lisp_Object
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2301 font_vconcat_entity_vectors (Lisp_Object list)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2302 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2303 int nargs = XINT (Flength (list));
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2304 Lisp_Object *args = alloca (sizeof (Lisp_Object) * nargs);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2305 int i;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2306
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2307 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
2308 args[i] = XCAR (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2309 return Fvconcat (nargs, args);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2310 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2311
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2312
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2313 /* The structure for elements being sorted by qsort. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2314 struct font_sort_data
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2315 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2316 unsigned score;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2317 int font_driver_preference;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2318 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2319 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2320
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2321
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2322 /* The comparison function for qsort. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2323
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2324 static int
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2325 font_compare (d1, d2)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2326 const void *d1, *d2;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2327 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2328 const struct font_sort_data *data1 = d1;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2329 const struct font_sort_data *data2 = d2;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2330
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2331 if (data1->score < data2->score)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2332 return -1;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2333 else if (data1->score > data2->score)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2334 return 1;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2335 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
2336 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2337
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2338
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2339 /* 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
2340 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
2341 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
2342 of FRAME before sorting.
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2343
102990
a706504f064e (font_sort_entites): Change the meaning of the arg
Kenichi Handa <handa@m17n.org>
parents: 102963
diff changeset
2344 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
2345 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
2346 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
2347 a single vector of font-entities.
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2348
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2349 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
2350 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
2351 such a case. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2352
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2353 static Lisp_Object
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2354 font_sort_entities (list, prefer, frame, best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2355 Lisp_Object list, prefer, frame;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2356 int best_only;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2357 {
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2358 Lisp_Object prefer_prop[FONT_SPEC_MAX];
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2359 int len, maxlen, i;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2360 struct font_sort_data *data;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2361 unsigned best_score;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2362 Lisp_Object best_entity;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2363 struct frame *f = XFRAME (frame);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2364 Lisp_Object tail, vec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2365 USE_SAFE_ALLOCA;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2366
103369
97cfffb6f666 (font_parse_family_registry): Fix for one-char foundry.
Kenichi Handa <handa@m17n.org>
parents: 103255
diff changeset
2367 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
2368 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
2369 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
2370 prefer_prop[FONT_SIZE_INDEX]
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
2371 = 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
2372
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2373 if (NILP (XCDR (list)))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2374 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2375 /* 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
2376 vec = XCAR (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2377 maxlen = ASIZE (vec);
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 else if (best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2380 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2381 /* 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
2382 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
2383 vector. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2384 maxlen = 0;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2385 for (tail = list; CONSP (tail); tail = XCDR (tail))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2386 if (maxlen < ASIZE (XCAR (tail)))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2387 maxlen = ASIZE (XCAR (tail));
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2388 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2389 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2390 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2391 /* 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
2392 vec = font_vconcat_entity_vectors (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2393 maxlen = ASIZE (vec);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2394 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2395
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2396 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
2397 best_score = 0xFFFFFFFF;
a706504f064e (font_sort_entites): Change the meaning of the arg
Kenichi Handa <handa@m17n.org>
parents: 102963
diff changeset
2398 best_entity = Qnil;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2399
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2400 for (tail = list; CONSP (tail); tail = XCDR (tail))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2401 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2402 int font_driver_preference = 0;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2403 Lisp_Object current_font_driver;
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 if (best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2406 vec = XCAR (tail);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2407 len = 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 /* 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
2410 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
2411 /* Score the elements. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2412 for (i = 0; i < len; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2413 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2414 data[i].entity = AREF (vec, i);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2415 data[i].score
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2416 = ((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
2417 > 0)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2418 ? font_score (data[i].entity, prefer_prop)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2419 : 0xFFFFFFFF);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2420 if (best_only && best_score > data[i].score)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2421 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2422 best_score = data[i].score;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2423 best_entity = data[i].entity;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2424 if (best_score == 0)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2425 break;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2426 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2427 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
2428 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2429 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
2430 font_driver_preference++;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2431 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2432 data[i].font_driver_preference = font_driver_preference;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2433 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2434
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2435 /* Sort if necessary. */
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2436 if (! best_only)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2437 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2438 qsort (data, len, sizeof *data, font_compare);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2439 for (i = 0; i < len; i++)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2440 ASET (vec, i, data[i].entity);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2441 break;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2442 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2443 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2444 vec = best_entity;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2445 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2446
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2447 SAFE_FREE ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2448
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
2449 FONT_ADD_LOG ("sort-by", prefer, vec);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2450 return vec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2451 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2452
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2453
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2454 /* API of Font Service Layer. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2455
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2456 /* 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
2457 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
2458 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
2459
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2460 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2461 font_update_sort_order (order)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2462 int *order;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2463 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2464 int i, shift_bits;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2465
95869
14ab94c436d7 (font_update_sort_order): Setting of sort_shift_bits adjusted for the
Kenichi Handa <handa@m17n.org>
parents: 95867
diff changeset
2466 for (i = 0, shift_bits = 23; i < 4; i++, shift_bits -= 7)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2467 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2468 int xlfd_idx = order[i];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2469
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2470 if (xlfd_idx == XLFD_WEIGHT_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2471 sort_shift_bits[FONT_WEIGHT_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2472 else if (xlfd_idx == XLFD_SLANT_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2473 sort_shift_bits[FONT_SLANT_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2474 else if (xlfd_idx == XLFD_SWIDTH_INDEX)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2475 sort_shift_bits[FONT_WIDTH_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2476 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2477 sort_shift_bits[FONT_SIZE_INDEX] = shift_bits;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2478 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2479 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2480
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2481 static int
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2482 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
2483 Lisp_Object script, langsys, features, table;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2484 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2485 Lisp_Object val;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2486 int negative;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2487
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2488 table = assq_no_quit (script, table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2489 if (NILP (table))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2490 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2491 table = XCDR (table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2492 if (! NILP (langsys))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2493 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2494 table = assq_no_quit (langsys, table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2495 if (NILP (table))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2496 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2497 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2498 else
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2499 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2500 val = assq_no_quit (Qnil, table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2501 if (NILP (val))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2502 table = XCAR (table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2503 else
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2504 table = val;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2505 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2506 table = XCDR (table);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2507 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
2508 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2509 if (NILP (XCAR (features)))
102082
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2510 {
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2511 negative = 1;
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2512 continue;
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
2513 }
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2514 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
2515 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2516 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2517 return 1;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2518 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2519
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2520 /* 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
2521
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2522 static int
96573
3de01ebe30b7 * fontset.c (fontset_get_font_group):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96565
diff changeset
2523 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
2524 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2525 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
2526
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2527 script = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2528 spec = XCDR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2529 if (! NILP (spec))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2530 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2531 langsys = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2532 spec = XCDR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2533 if (! NILP (spec))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2534 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2535 gsub = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2536 spec = XCDR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2537 if (! NILP (spec))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2538 gpos = XCAR (spec);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2539 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2540 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2541
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2542 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
2543 XCAR (otf_capability)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2544 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2545 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
2546 XCDR (otf_capability)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2547 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2548 return 1;
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
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
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2553 /* 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
2554 specification SPEC. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2555
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2556 int
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2557 font_match_p (spec, font)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2558 Lisp_Object spec, font;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2559 {
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2560 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
2561 Lisp_Object extra, font_extra;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2562 int i;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2563
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2564 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
2565 if (! NILP (AREF (spec, i))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2566 && ! NILP (AREF (font, i))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2567 && ! 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
2568 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2569 props = XFONT_SPEC (spec)->props;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2570 if (FLOATP (props[FONT_SIZE_INDEX]))
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 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
2573 prop[i] = AREF (spec, i);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2574 prop[FONT_SIZE_INDEX]
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2575 = 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
2576 props = prop;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2577 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2578
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2579 if (font_score (font, props) > 0)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2580 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2581 extra = AREF (spec, FONT_EXTRA_INDEX);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2582 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
2583 for (; CONSP (extra); extra = XCDR (extra))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2584 {
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2585 Lisp_Object key = XCAR (XCAR (extra));
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2586 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
2587
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2588 if (EQ (key, QClang))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2589 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2590 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
2591 if (NILP (val2))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2592 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2593 val2 = XCDR (val2);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2594 if (CONSP (val))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2595 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2596 if (! CONSP (val2))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2597 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2598 while (CONSP (val))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2599 if (NILP (Fmemq (val, val2)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2600 return 0;
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 else
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2603 if (CONSP (val2)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2604 ? NILP (Fmemq (val, XCDR (val2)))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2605 : ! EQ (val, val2))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2606 return 0;
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 else if (EQ (key, QCscript))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2609 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2610 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
2611 if (CONSP (val2))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2612 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2613 val2 = XCDR (val2);
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2614 if (CONSP (val2))
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2615 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2616 /* 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
2617 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
2618 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2619 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
2620 continue;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2621 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
2622 == FONT_INVALID_CODE)
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2623 return 0;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2624 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2625 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2626 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
2627 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2628 /* 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
2629 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
2630 {
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2631 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
2632 continue;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2633 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
2634 != FONT_INVALID_CODE)
99076
06c37ccf1b58 (font_match_p): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 99075
diff changeset
2635 break;
99075
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2636 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2637 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
2638 return 0;
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2639 }
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
2640 }
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2641 }
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2642 else if (EQ (key, QCotf))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2643 {
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2644 struct font *fontp;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2645
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2646 if (! FONT_OBJECT_P (font))
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2647 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2648 fontp = XFONT_OBJECT (font);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2649 if (! fontp->driver->otf_capability)
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2650 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2651 val2 = fontp->driver->otf_capability (fontp);
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2652 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
2653 return 0;
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2654 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2655 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2656
96559
34bb8a9f2b7f (font_make_object): New arg entity and pixelsize.
Kenichi Handa <handa@m17n.org>
parents: 96262
diff changeset
2657 return 1;
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
2658 }
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2659
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
2660
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2661 /* Font cache
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2662
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2663 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
2664 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
2665 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
2666 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
2667
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2668 ((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
2669
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2670 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
2671 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
2672 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
2673
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2674 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
2675 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
2676 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
2677 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
2678 struct font_driver *));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2679
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2680 static void
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2681 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
2682 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2683 struct font_driver *driver;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2684 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2685 Lisp_Object cache, val;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2686
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2687 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
2688 val = XCDR (cache);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2689 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
2690 val = XCDR (val);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2691 if (NILP (val))
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 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
2694 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
2695 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2696 else
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 val = XCDR (XCAR (val));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2699 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
2700 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2701 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2702
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2703
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2704 static void
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2705 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
2706 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2707 struct font_driver *driver;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2708 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2709 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
2710
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2711
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2712 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
2713 val = XCDR (cache);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2714 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
2715 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
2716 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
2717 tmp = XCDR (XCAR (val));
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2718 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
2719 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
2720 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2721 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
2722 XSETCDR (cache, XCDR (val));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2723 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2724 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2725
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2726
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2727 static Lisp_Object
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2728 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
2729 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2730 struct font_driver *driver;
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 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
2733 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
2734
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2735 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
2736 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
2737 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
2738 /* 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
2739 val = XCDR (XCAR (val));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2740 return val;
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
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2743 static int num_fonts;
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2744
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2745 static void
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2746 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
2747 FRAME_PTR f;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2748 Lisp_Object cache;
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2749 struct font_driver *driver;
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 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
2752 Lisp_Object tail2, entity;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
2753
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2754 /* 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
2755 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
2756 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2757 elt = XCAR (tail);
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2758 /* 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
2759 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
2760 {
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2761 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
2762 {
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2763 entity = XCAR (tail2);
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2764
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
2765 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
2766 && 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
2767 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2768 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
2769
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2770 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
2771 {
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2772 Lisp_Object val = XCAR (objlist);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2773 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
2774
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2775 if (! NILP (AREF (val, FONT_TYPE_INDEX)))
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2776 {
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2777 font_assert (font && driver == font->driver);
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2778 driver->close (f, font);
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2779 num_fonts--;
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2780 }
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2781 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2782 if (driver->free_entity)
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2783 driver->free_entity (entity);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2784 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2785 }
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 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2788 XSETCDR (cache, Qnil);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2789 }
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2790
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2791
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2792 static Lisp_Object scratch_font_spec, scratch_font_prefer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2793
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2794 Lisp_Object
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2795 font_delete_unmatched (vec, spec, size)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2796 Lisp_Object vec, spec;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2797 int size;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2798 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2799 Lisp_Object entity, val;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2800 enum font_property_index prop;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2801 int i;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2802
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2803 for (val = Qnil, i = ASIZE (vec) - 1; i >= 0; i--)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2804 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2805 entity = AREF (vec, i);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2806 for (prop = FONT_WEIGHT_INDEX; prop < FONT_SIZE_INDEX; prop++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2807 if (INTEGERP (AREF (spec, prop))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2808 && ((XINT (AREF (spec, prop)) >> 8)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2809 != (XINT (AREF (entity, prop)) >> 8)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2810 prop = FONT_SPEC_MAX;
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2811 if (prop < FONT_SPEC_MAX
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2812 && size
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2813 && XINT (AREF (entity, FONT_SIZE_INDEX)) > 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2814 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2815 int diff = XINT (AREF (entity, FONT_SIZE_INDEX)) - size;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2816
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2817 if (diff != 0
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2818 && (diff < 0 ? -diff > FONT_PIXEL_SIZE_QUANTUM
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2819 : diff > FONT_PIXEL_SIZE_QUANTUM))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2820 prop = FONT_SPEC_MAX;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2821 }
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2822 if (prop < FONT_SPEC_MAX
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2823 && INTEGERP (AREF (spec, FONT_DPI_INDEX))
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2824 && 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
2825 && XINT (AREF (entity, FONT_DPI_INDEX)) != 0
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2826 && ! 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
2827 prop = FONT_SPEC_MAX;
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2828 if (prop < FONT_SPEC_MAX
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2829 && INTEGERP (AREF (spec, FONT_AVGWIDTH_INDEX))
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2830 && 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
2831 && XINT (AREF (entity, FONT_AVGWIDTH_INDEX)) != 0
96262
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2832 && ! EQ (AREF (spec, FONT_AVGWIDTH_INDEX),
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2833 AREF (entity, FONT_AVGWIDTH_INDEX)))
31a398897576 (font_parse_fcname): Remove unused variables.
Kenichi Handa <handa@m17n.org>
parents: 96227
diff changeset
2834 prop = FONT_SPEC_MAX;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2835 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
2836 val = Fcons (entity, val);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2837 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2838 return (Fvconcat (1, &val));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2839 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2840
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2841
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2842 /* Return a list of vectors of font-entities matching with SPEC on
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2843 FRAME. The elements of the list are in the same of order of
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2844 font-drivers. */
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2845
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2846 Lisp_Object
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2847 font_list_entities (frame, spec)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2848 Lisp_Object frame, spec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2849 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2850 FRAME_PTR f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2851 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
2852 Lisp_Object ftype, val;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2853 Lisp_Object list = Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2854 int size;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2855 int need_filtering = 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2856 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2857
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2858 font_assert (FONT_SPEC_P (spec));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2859
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2860 if (INTEGERP (AREF (spec, FONT_SIZE_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2861 size = XINT (AREF (spec, FONT_SIZE_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2862 else if (FLOATP (AREF (spec, FONT_SIZE_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2863 size = font_pixel_size (f, spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2864 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2865 size = 0;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2866
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2867 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
2868 for (i = FONT_FOUNDRY_INDEX; i <= FONT_REGISTRY_INDEX; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2869 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
2870 for (i = FONT_WEIGHT_INDEX; i < FONT_EXTRA_INDEX; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2871 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2872 ASET (scratch_font_spec, i, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2873 if (! NILP (AREF (spec, i)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2874 need_filtering = 1;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2875 if (i == FONT_DPI_INDEX)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2876 /* Skip FONT_SPACING_INDEX */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2877 i++;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2878 }
95359
f6580a4c58da (font_parse_family_registry): Use Ffont_put to validate
Kenichi Handa <handa@m17n.org>
parents: 95290
diff changeset
2879 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
2880 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
2881
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2882 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
2883 if (driver_list->on
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
2884 && (NILP (ftype) || EQ (driver_list->driver->type, ftype)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2885 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2886 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
2887
95437
6e6db01383e4 (font_list_entities): Fix the car part of data to be
Kenichi Handa <handa@m17n.org>
parents: 95421
diff changeset
2888 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
2889 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
2890 if (CONSP (val))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2891 val = XCDR (val);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2892 else
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2893 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2894 Lisp_Object copy;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2895
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2896 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
2897 if (NILP (val))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2898 val = null_vector;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2899 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2900 val = Fvconcat (1, &val);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
2901 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
2902 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
2903 XSETCDR (cache, Fcons (Fcons (copy, val), XCDR (cache)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2904 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2905 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
2906 val = font_delete_unmatched (val, spec, size);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2907 if (ASIZE (val) > 0)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2908 list = Fcons (val, list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2909 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2910
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2911 list = Fnreverse (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2912 FONT_ADD_LOG ("list", spec, list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
2913 return list;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2914 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2915
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2916
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2917 /* 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
2918 nil, is an array of face's attributes, which specifies preferred
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2919 font-related attributes. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2920
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2921 static Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2922 font_matching_entity (f, attrs, spec)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2923 FRAME_PTR f;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2924 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
2925 {
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2926 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
2927 Lisp_Object ftype, size, entity;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2928 Lisp_Object frame;
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2929 Lisp_Object work = Fcopy_font_spec (spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2930
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2931 XSETFRAME (frame, f);
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2932 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
2933 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
2934
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2935 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
2936 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
2937 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
2938 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
2939 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
2940
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2941 entity = Qnil;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2942 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
2943 if (driver_list->on
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2944 && (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
2945 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
2946 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
2947 Lisp_Object copy;
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2948
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2949 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
2950 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
2951 if (CONSP (entity))
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2952 entity = XCDR (entity);
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2953 else
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2954 {
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
2955 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
2956 copy = Fcopy_font_spec (work);
95104
ae4280e6a166 (font_list_entities): Fix handling of cache.
Kenichi Handa <handa@m17n.org>
parents: 95013
diff changeset
2957 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
2958 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
2959 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2960 if (! NILP (entity))
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2961 break;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2962 }
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
2963 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
2964 return entity;
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2965 }
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
2966
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2967
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2968 /* 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
2969 opened font object. */
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
2970
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2971 static Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2972 font_open_entity (f, entity, pixel_size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2973 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2974 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2975 int pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2976 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2977 struct font_driver_list *driver_list;
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
2978 Lisp_Object objlist, size, val, font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2979 struct font *font;
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
2980 int min_width, height;
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
2981 int scaled_pixel_size;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2982
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
2983 font_assert (FONT_ENTITY_P (entity));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2984 size = AREF (entity, FONT_SIZE_INDEX);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2985 if (XINT (size) != 0)
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
2986 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
2987 else if (CONSP (Vface_font_rescale_alist))
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
2988 scaled_pixel_size = pixel_size * font_rescale_ratio (entity);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2989
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
2990 #if 0
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
2991 /* This doesn't work if you have changed hinting or any other parameter.
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
2992 We need to make a new object in every case to be sure. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2993 for (objlist = AREF (entity, FONT_OBJLIST_INDEX); CONSP (objlist);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2994 objlist = XCDR (objlist))
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2995 if (! NILP (AREF (XCAR (objlist), FONT_TYPE_INDEX))
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
2996 && XFONT_OBJECT (XCAR (objlist))->pixel_size == pixel_size)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2997 return XCAR (objlist);
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
2998 #endif
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
2999
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3000 val = AREF (entity, FONT_TYPE_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3001 for (driver_list = f->font_driver_list;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3002 driver_list && ! EQ (driver_list->driver->type, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3003 driver_list = driver_list->next);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3004 if (! driver_list)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3005 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3006
100445
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
3007 font_object = driver_list->driver->open (f, entity, scaled_pixel_size);
e412b5885b9d (font_open_entity): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 100442
diff changeset
3008 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
3009 FONT_ADD_LOG ("open", entity, font_object);
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3010 if (NILP (font_object))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3011 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3012 ASET (entity, FONT_OBJLIST_INDEX,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3013 Fcons (font_object, AREF (entity, FONT_OBJLIST_INDEX)));
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3014 ASET (font_object, FONT_OBJLIST_INDEX, Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3015 num_fonts++;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3016
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3017 font = XFONT_OBJECT (font_object);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3018 min_width = (font->min_width ? font->min_width
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3019 : font->average_width ? font->average_width
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3020 : font->space_width ? font->space_width
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3021 : 1);
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3022 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
3023 #ifdef HAVE_WINDOW_SYSTEM
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3024 FRAME_X_DISPLAY_INFO (f)->n_fonts++;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3025 if (FRAME_X_DISPLAY_INFO (f)->n_fonts == 1)
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3026 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3027 FRAME_SMALLEST_CHAR_WIDTH (f) = min_width;
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3028 FRAME_SMALLEST_FONT_HEIGHT (f) = height;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3029 fonts_changed_p = 1;
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3030 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3031 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3032 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3033 if (FRAME_SMALLEST_CHAR_WIDTH (f) > min_width)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3034 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
3035 if (FRAME_SMALLEST_FONT_HEIGHT (f) > height)
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
3036 FRAME_SMALLEST_FONT_HEIGHT (f) = height, fonts_changed_p = 1;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3037 }
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
3038 #endif
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3039
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
3040 return font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3041 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3042
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3043
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3044 /* 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
3045
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3046 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3047 font_close_object (f, font_object)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3048 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3049 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3050 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3051 struct font *font = XFONT_OBJECT (font_object);
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3052
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3053 if (NILP (AREF (font_object, FONT_TYPE_INDEX)))
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3054 /* Already closed. */
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3055 return;
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
3056 FONT_ADD_LOG ("close", font_object, Qnil);
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3057 font->driver->close (f, font);
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
3058 #ifdef HAVE_WINDOW_SYSTEM
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3059 font_assert (FRAME_X_DISPLAY_INFO (f)->n_fonts);
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3060 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
3061 #endif
96000
f2d08191aec7 (font_check_object): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 95984
diff changeset
3062 num_fonts--;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3063 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3064
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3065
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
3066 /* 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
3067 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
3068
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3069 int
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3070 font_has_char (f, font, c)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3071 FRAME_PTR f;
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3072 Lisp_Object font;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3073 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3074 {
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3075 struct font *fontp;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3076
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3077 if (FONT_ENTITY_P (font))
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3078 {
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3079 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
3080 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
3081
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3082 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
3083 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
3084 driver_list = driver_list->next);
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3085 if (! driver_list)
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3086 return 0;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3087 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
3088 return -1;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3089 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
3090 }
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3091
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3092 font_assert (FONT_OBJECT_P (font));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3093 fontp = XFONT_OBJECT (font);
90490
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3094 if (fontp->driver->has_char)
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3095 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3096 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
3097
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3098 if (result >= 0)
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3099 return result;
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3100 }
8ef2cbaf626a (font_parse_xlfd): Fix generating of CHARSET_REGISTRY field.
Kenichi Handa <handa@m17n.org>
parents: 90483
diff changeset
3101 return (fontp->driver->encode_char (fontp, c) != FONT_INVALID_CODE);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3102 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3103
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3104
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3105 /* 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
3106
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3107 unsigned
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3108 font_encode_char (font_object, c)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3109 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3110 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3111 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3112 struct font *font;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3113
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3114 font_assert (FONT_OBJECT_P (font_object));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3115 font = XFONT_OBJECT (font_object);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3116 return font->driver->encode_char (font, c);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3117 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3118
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3119
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3120 /* 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
3121
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3122 Lisp_Object
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3123 font_get_name (font_object)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3124 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
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_object));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3127 return AREF (font_object, FONT_NAME_INDEX);
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3128 }
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3129
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3130
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3131 /* 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
3132
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3133 Lisp_Object
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3134 font_get_spec (font_object)
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3135 Lisp_Object font_object;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3136 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3137 Lisp_Object spec = font_make_spec ();
90468
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3138 int i;
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3139
5424215feef6 (XLFD_SMALLNUM_MASK): Delete this macro.
Kenichi Handa <handa@m17n.org>
parents: 90451
diff changeset
3140 for (i = 0; i < FONT_SIZE_INDEX; i++)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3141 ASET (spec, i, AREF (font_object, i));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3142 ASET (spec, FONT_SIZE_INDEX,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3143 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
3144 return spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3145 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3146
101293
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3147
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3148 /* 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
3149 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
3150
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3151 Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3152 font_spec_from_name (font_name)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3153 Lisp_Object font_name;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3154 {
101293
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3155 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
3156
558e0d4ded9a (font_spec_from_name): Return Qnil if font name could not be parsed.
Chong Yidong <cyd@stupidchicken.com>
parents: 101226
diff changeset
3157 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
3158 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
3159 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
3160 font_put_extra (spec, QCname, 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
3161 return spec;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3162 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3163
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3164
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3165 void
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3166 font_clear_prop (attrs, prop)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3167 Lisp_Object *attrs;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3168 enum font_property_index prop;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3169 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3170 Lisp_Object font = attrs[LFACE_FONT_INDEX];
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3171
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3172 if (! FONTP (font))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3173 return;
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3174 #if 0
102897
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3175 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
3176 {
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3177 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
3178 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
3179 }
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3180
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3181 #endif
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3182 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
3183 && 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
3184 && 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
3185 && prop != FONT_WIDTH_INDEX
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3186 && prop != FONT_SIZE_INDEX)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3187 return;
102897
9a6e5b1105a6 (font_put_extra): If VAL is nil, delete the slot for PROP
Kenichi Handa <handa@m17n.org>
parents: 102708
diff changeset
3188 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
3189 font = Fcopy_font_spec (font);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3190 ASET (font, prop, Qnil);
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3191 if (prop == FONT_FAMILY_INDEX || prop == FONT_FOUNDRY_INDEX)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3192 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3193 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
3194 {
fe4728c4a48b (font_clear_prop): If clearing the family, clear the font width index
Chong Yidong <cyd@stupidchicken.com>
parents: 101028
diff changeset
3195 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
3196 /* 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
3197 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
3198 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
3199 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
3200 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3201 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
3202 ASET (font, FONT_REGISTRY_INDEX, Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3203 ASET (font, FONT_SIZE_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3204 ASET (font, FONT_DPI_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3205 ASET (font, FONT_SPACING_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3206 ASET (font, FONT_AVGWIDTH_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3207 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3208 else if (prop == FONT_SIZE_INDEX)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3209 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3210 ASET (font, FONT_DPI_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3211 ASET (font, FONT_SPACING_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3212 ASET (font, FONT_AVGWIDTH_INDEX, Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3213 }
98717
507c5c477e60 (font_clear_prop): When clearing font width, clear the average width
Chong Yidong <cyd@stupidchicken.com>
parents: 98655
diff changeset
3214 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
3215 ASET (font, FONT_AVGWIDTH_INDEX, Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3216 attrs[LFACE_FONT_INDEX] = font;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3217 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3218
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3219 void
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3220 font_update_lface (f, attrs)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3221 FRAME_PTR f;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3222 Lisp_Object *attrs;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3223 {
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
3224 Lisp_Object spec;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3225
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3226 spec = attrs[LFACE_FONT_INDEX];
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3227 if (! FONT_SPEC_P (spec))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3228 return;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3229
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3230 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
3231 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
3232 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
3233 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
3234 if (! NILP (AREF (spec, FONT_WEIGHT_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3235 attrs[LFACE_WEIGHT_INDEX] = FONT_WEIGHT_FOR_FACE (spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3236 if (! NILP (AREF (spec, FONT_SLANT_INDEX)))
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101806
diff changeset
3237 attrs[LFACE_SLANT_INDEX] = FONT_SLANT_FOR_FACE (spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3238 if (! NILP (AREF (spec, FONT_WIDTH_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3239 attrs[LFACE_SWIDTH_INDEX] = FONT_WIDTH_FOR_FACE (spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3240 if (! NILP (AREF (spec, FONT_SIZE_INDEX)))
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 int point;
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 if (INTEGERP (AREF (spec, FONT_SIZE_INDEX)))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3245 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3246 Lisp_Object val;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3247 int dpi = f->resy;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3248
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3249 val = Ffont_get (spec, QCdpi);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3250 if (! NILP (val))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3251 dpi = XINT (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3252 point = PIXEL_TO_POINT (XINT (AREF (spec, FONT_SIZE_INDEX)) * 10,
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3253 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
3254 attrs[LFACE_HEIGHT_INDEX] = make_number (point);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3255 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3256 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
3257 {
b80052504b85 Handle fonts with corrupted size specs, i.e. non-int and non-float.
Chong Yidong <cyd@stupidchicken.com>
parents: 100165
diff changeset
3258 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
3259 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
3260 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3261 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3262 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3263
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3264
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3265 /* 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
3266 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
3267
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3268 static Lisp_Object
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3269 font_select_entity (frame, entities, attrs, pixel_size, c)
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3270 Lisp_Object frame, entities, *attrs;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3271 int pixel_size, c;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3272 {
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3273 Lisp_Object font_entity;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3274 Lisp_Object prefer;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3275 int result, i;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3276 FRAME_PTR f = XFRAME (frame);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3277
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3278 if (NILP (XCDR (entities))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3279 && ASIZE (XCAR (entities)) == 1)
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3280 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3281 font_entity = AREF (XCAR (entities), 0);
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3282 if (c < 0
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3283 || (result = font_has_char (f, font_entity, c)) > 0)
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3284 return font_entity;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3285 return Qnil;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3286 }
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3287
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3288 /* Sort fonts by properties specified in ATTRS. */
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3289 prefer = scratch_font_prefer;
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3290
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3291 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
3292 ASET (prefer, i, Qnil);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3293 if (FONTP (attrs[LFACE_FONT_INDEX]))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3294 {
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3295 Lisp_Object face_font = attrs[LFACE_FONT_INDEX];
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3296
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3297 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
3298 ASET (prefer, i, AREF (face_font, i));
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3299 }
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3300 if (NILP (AREF (prefer, FONT_WEIGHT_INDEX)))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3301 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
3302 if (NILP (AREF (prefer, FONT_SLANT_INDEX)))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3303 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
3304 if (NILP (AREF (prefer, FONT_WIDTH_INDEX)))
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3305 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
3306 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
3307
103255
a8e08bcfc3ad (font_sort_entities): Renamed from font_sort_entites.
Kenichi Handa <handa@m17n.org>
parents: 103246
diff changeset
3308 return font_sort_entities (entities, prefer, frame, c);
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3309 }
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3310
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3311 /* 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
3312 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
3313 character that the entity must support. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3314
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3315 Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3316 font_find_for_lface (f, attrs, spec, c)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3317 FRAME_PTR f;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3318 Lisp_Object *attrs;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3319 Lisp_Object spec;
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
3320 int c;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3321 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3322 Lisp_Object work;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3323 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
3324 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
3325 int pixel_size;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3326 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
3327
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3328 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
3329 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
3330 {
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
3331 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
3332 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
3333 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
3334 }
ff04c95494e4 (font_find_for_lface): If registry is NULL, try iso8859-1 and ascii-0.
Kenichi Handa <handa@m17n.org>
parents: 95886
diff changeset
3335 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
3336 registry[1] = null_vector;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3337
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3338 if (c >= 0 && ! NILP (AREF (spec, FONT_REGISTRY_INDEX)))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3339 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3340 struct charset *encoding, *repertory;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3341
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3342 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
3343 &encoding, &repertory) < 0)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3344 return Qnil;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3345 if (repertory
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3346 && ENCODE_CHAR (repertory, c) == CHARSET_INVALID_CODE (repertory))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3347 return Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3348 else if (c > encoding->max_char)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3349 return Qnil;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3350 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3351
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3352 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
3353 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
3354 XSETFRAME (frame, f);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3355 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
3356 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
3357 if (pixel_size == 0)
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3358 {
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3359 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
3360
e1e8d6b9d465 (font_find_for_lface): Handle float font size.
Kenichi Handa <handa@m17n.org>
parents: 95437
diff changeset
3361 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
3362 }
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3363 ASET (work, FONT_SIZE_INDEX, Qnil);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3364 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
3365 if (! NILP (foundry[0]))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3366 foundry[1] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3367 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
3368 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3369 val = attrs[LFACE_FOUNDRY_INDEX];
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3370 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
3371 foundry[1] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3372 foundry[2] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3373 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3374 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3375 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
3376
96200
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3377 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
3378 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
3379 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
3380 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
3381 {
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3382 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
3383
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3384 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
3385 {
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3386 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
3387 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
3388 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
3389 }
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3390 else
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3391 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
3392 }
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3393 else
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3394 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
3395
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3396
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3397 val = AREF (work, FONT_FAMILY_INDEX);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3398 if (NILP (val) && STRINGP (attrs[LFACE_FAMILY_INDEX]))
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3399 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3400 val = attrs[LFACE_FAMILY_INDEX];
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3401 val = font_intern_prop ((char *) SDATA (val), SBYTES (val), 1);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3402 }
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3403 if (NILP (val))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3404 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3405 family = alloca ((sizeof family[0]) * 2);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3406 family[0] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3407 family[1] = null_vector; /* terminator. */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3408 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3409 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3410 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3411 Lisp_Object alters
98445
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3412 = 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
3413 /* 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
3414 #ifndef HAVE_NS
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3415 Qt
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3416 #else
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3417 Qnil
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3418 #endif
5d2542d6df18 (font_matching_entity): Reflect ATTRS in font selection.
Kenichi Handa <handa@m17n.org>
parents: 98124
diff changeset
3419 );
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3420
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3421 if (! NILP (alters))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3422 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3423 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
3424 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
3425 family[i] = XCAR (alters);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3426 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
3427 family[i++] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3428 family[i] = null_vector;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3429 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3430 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3431 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3432 family = alloca ((sizeof family[0]) * 3);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3433 i = 0;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3434 family[i++] = val;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3435 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
3436 family[i++] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3437 family[i] = null_vector;
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 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3440
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
3441 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
3442 {
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
3443 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
3444 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
3445 {
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
3446 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
3447 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
3448 {
95890
e6e6c351339d (font_find_for_lface): Fix typo of the previous change.
Kenichi Handa <handa@m17n.org>
parents: 95888
diff changeset
3449 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
3450 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
3451 {
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3452 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
3453 entities = font_list_entities (frame, work);
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
3454 if (! NILP (entities))
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3455 {
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3456 val = font_select_entity (frame, entities,
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3457 attrs, pixel_size, c);
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3458 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
3459 return val;
102415
ccbe1c8ab377 (font_select_entity): New function.
Kenichi Handa <handa@m17n.org>
parents: 102298
diff changeset
3460 }
96200
5f7a1e1f15c4 (font_find_for_lface): Try the adstyle specified in the property of
Kenichi Handa <handa@m17n.org>
parents: 96136
diff changeset
3461 }
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
3462 }
95867
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 }
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
3465 return Qnil;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3466 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3467
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3468
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3469 Lisp_Object
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3470 font_open_for_lface (f, entity, attrs, spec)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3471 FRAME_PTR f;
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3472 Lisp_Object entity;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3473 Lisp_Object *attrs;
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3474 Lisp_Object spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3475 {
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
3476 int size;
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
3477
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3478 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
3479 && 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
3480 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
3481 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
3482 size = font_pixel_size (f, spec);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3483 else
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3484 {
100985
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3485 double pt;
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3486 if (INTEGERP (attrs[LFACE_HEIGHT_INDEX]))
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3487 pt = XINT (attrs[LFACE_HEIGHT_INDEX]);
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3488 else
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3489 {
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3490 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
3491 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
3492 if (INTEGERP (height))
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3493 pt = XINT (height);
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3494 else
f82bae05534c (font_open_for_lface): Handle unspecified height attribute.
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
3495 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
3496 }
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3497
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3498 pt /= 10;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3499 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
3500 #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
3501 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
3502 {
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
3503 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
3504 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
3505 }
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
3506 #endif
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
3507 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3508 return font_open_entity (f, entity, size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3509 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3510
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3511
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3512 /* Find a font satisfying SPEC and best matching with face's
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3513 attributes in ATTRS on FRAME, and return the opened
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3514 font-object. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3515
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3516 Lisp_Object
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3517 font_load_for_lface (f, attrs, spec)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3518 FRAME_PTR f;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3519 Lisp_Object *attrs, spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3520 {
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3521 Lisp_Object entity, name;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3522
103037
e04bcedc08be (font_load_for_lface): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 103019
diff changeset
3523 entity = font_find_for_lface (f, attrs, spec, -1);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3524 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
3525 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3526 /* 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
3527 the different criteria about "font matching". So, try
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3528 it. */
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3529 entity = font_matching_entity (f, attrs, spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3530 if (NILP (entity))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3531 return Qnil;
91350
9673276f310c (font_load_for_face): Handle the case that the font in
Kenichi Handa <handa@m17n.org>
parents: 91337
diff changeset
3532 }
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3533 /* 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
3534 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
3535 changed. */
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3536 entity = font_open_for_lface (f, entity, attrs, spec);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3537 name = Ffont_get (spec, QCname);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3538 if (STRINGP (name)) font_put_extra (entity, QCname, name);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105877
diff changeset
3539 return entity;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3540 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3541
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3542
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3543 /* 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
3544
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3545 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3546 font_prepare_for_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3547 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3548 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3549 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3550 if (face->font->driver->prepare_face)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3551 face->font->driver->prepare_face (f, face);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3552 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3553
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3554
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3555 /* 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
3556
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3557 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3558 font_done_for_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3559 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3560 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3561 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3562 if (face->font->driver->done_face)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3563 face->font->driver->done_face (f, face);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3564 face->extra = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3565 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3566
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3567
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3568 /* 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
3569 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
3570
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3571 Lisp_Object
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3572 font_open_by_spec (f, spec)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3573 FRAME_PTR f;
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3574 Lisp_Object spec;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3575 {
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3576 Lisp_Object attrs[LFACE_VECTOR_SIZE];
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3577
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3578 /* 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
3579 a moderate font. */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3580 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
3581 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
3582 = 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
3583 #ifndef HAVE_NS
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3584 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
3585 #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
3586 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
3587 #endif
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3588 attrs[LFACE_FONT_INDEX] = Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3589
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3590 return font_load_for_lface (f, attrs, spec);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3591 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3592
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3593
102483
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3594 /* 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
3595 found, return Qnil. */
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3596
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3597 Lisp_Object
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3598 font_open_by_name (f, name)
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3599 FRAME_PTR f;
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3600 char *name;
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3601 {
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3602 Lisp_Object args[2];
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3603 Lisp_Object spec;
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3604
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3605 args[0] = QCname;
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3606 args[1] = make_unibyte_string (name, strlen (name));
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3607 spec = Ffont_spec (2, args);
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3608 return font_open_by_spec (f, spec);
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3609 }
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3610
d25713758c3e (font_open_by_spec): New function.
Kenichi Handa <handa@m17n.org>
parents: 102415
diff changeset
3611
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3612 /* Register font-driver DRIVER. This function is used in two ways.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3613
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3614 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
3615 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
3616 (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
3617 an available font-driver.
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3618
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3619 The second is with frame F NULL. In this case, DRIVER is globally
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3620 registered in the variable `font_driver_list'. All font-driver
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3621 implementations must call this function in its syms_of_XXXX
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3622 (e.g. syms_of_xfont). */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3623
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3624 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3625 register_font_driver (driver, f)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3626 struct font_driver *driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3627 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3628 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3629 struct font_driver_list *root = f ? f->font_driver_list : font_driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3630 struct font_driver_list *prev, *list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3631
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3632 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
3633 error ("Unusable font driver for a frame: %s",
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3634 SDATA (SYMBOL_NAME (driver->type)));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3635
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3636 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
3637 if (EQ (list->driver->type, driver->type))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3638 error ("Duplicated font driver: %s", SDATA (SYMBOL_NAME (driver->type)));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3639
100103
c2ef1c8b2d64 (register_font_driver): Use xmalloc.
Andreas Schwab <schwab@suse.de>
parents: 99076
diff changeset
3640 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
3641 list->on = 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3642 list->driver = driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3643 list->next = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3644 if (prev)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3645 prev->next = list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3646 else if (f)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3647 f->font_driver_list = list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3648 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3649 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
3650 if (! f)
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
3651 num_font_drivers++;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3652 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3653
100406
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3654 void
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3655 free_font_driver_list (f)
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3656 FRAME_PTR f;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3657 {
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3658 struct font_driver_list *list, *next;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3659
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3660 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
3661 {
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3662 next = list->next;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3663 xfree (list);
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3664 }
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3665 f->font_driver_list = NULL;
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3666 }
b8012399df73 (free_font_driver_list): Implement missing function.
Chong Yidong <cyd@stupidchicken.com>
parents: 100385
diff changeset
3667
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3668
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3669 /* 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
3670 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
3671 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
3672
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
3673 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
3674 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
3675 F. */
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
3676
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
3677 Lisp_Object
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
3678 font_update_drivers (f, new_drivers)
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3679 FRAME_PTR f;
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3680 Lisp_Object new_drivers;
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3681 {
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3682 Lisp_Object active_drivers = Qnil;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3683 struct font_driver *driver;
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3684 struct font_driver_list *list;
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3685
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3686 /* 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
3687 drivers. */
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3688 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
3689 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3690 driver = list->driver;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3691 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
3692 != list->on)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3693 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3694 if (list->on)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3695 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3696 if (driver->end_for_frame)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3697 driver->end_for_frame (f);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3698 font_finish_cache (f, driver);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3699 list->on = 0;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3700 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3701 else
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3702 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3703 if (! driver->start_for_frame
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3704 || driver->start_for_frame (f) == 0)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3705 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3706 font_prepare_cache (f, driver);
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3707 list->on = 1;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3708 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3709 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3710 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3711 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3712
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3713 if (NILP (new_drivers))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3714 return Qnil;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3715
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3716 if (! EQ (new_drivers, Qt))
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3717 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3718 /* 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
3719 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
3720 Lisp_Object tail;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3721 int i;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3722
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3723 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
3724 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
3725 {
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3726 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
3727 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
3728 break;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3729 if (list)
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3730 list_table[i++] = list;
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 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
3733 if (! list->on)
100442
71dc8b382715 (font_update_drivers): Fix mistake in reconstructing the driver list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100406
diff changeset
3734 list_table[i++] = list;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3735 list_table[i] = NULL;
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3736
95958
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3737 next = &f->font_driver_list;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3738 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
3739 {
95958
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3740 *next = list_table[i];
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3741 next = &(*next)->next;
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3742 }
95958
fbdde312e09d (font_update_drivers): Fix crash when no drivers match.
Andreas Schwab <schwab@suse.de>
parents: 95894
diff changeset
3743 *next = NULL;
103162
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3744
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3745 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
3746 { /* 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
3747 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
3748 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
3749 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
3750 {
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3751 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
3752 eassert (! list->on);
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3753 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
3754 || 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
3755 {
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3756 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
3757 list->on = 1;
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3758 }
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3759 }
cb1886d1427b (font_update_drivers): Sanity fallback to avoid disabling all drivers.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103114
diff changeset
3760 }
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3761 }
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3762
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3763 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
3764 if (list->on)
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3765 active_drivers = nconc2 (active_drivers,
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
3766 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
3767 return active_drivers;
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3768 }
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3769
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3770 int
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3771 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
3772 FRAME_PTR f;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3773 struct font_driver *driver;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3774 void *data;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3775 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3776 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
3777
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3778 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
3779 prev = list, list = list->next)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3780 if (list->driver == driver)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3781 break;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3782 if (! data)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3783 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3784 if (list)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3785 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3786 if (prev)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3787 prev->next = list->next;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3788 else
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3789 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
3790 xfree (list);
91112
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3791 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3792 return 0;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3793 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3794
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3795 if (! list)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3796 {
100103
c2ef1c8b2d64 (register_font_driver): Use xmalloc.
Andreas Schwab <schwab@suse.de>
parents: 99076
diff changeset
3797 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
3798 list->driver = driver;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3799 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
3800 f->font_data_list = list;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3801 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3802 list->data = data;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3803 return 0;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3804 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3805
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3806
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3807 void *
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3808 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
3809 FRAME_PTR f;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3810 struct font_driver *driver;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3811 {
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3812 struct font_data_list *list;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3813
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3814 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
3815 if (list->driver == driver)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3816 break;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3817 if (! list)
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3818 return NULL;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3819 return list->data;
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3820 }
8042dbbb0419 (font_update_drivers): Call driver->start_for_frame and
Kenichi Handa <handa@m17n.org>
parents: 91081
diff changeset
3821
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
3822
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3823 /* 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
3824 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
3825 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
3826 STRING. */
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
3827
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3828 Lisp_Object
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3829 font_at (c, pos, face, w, string)
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3830 int c;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3831 EMACS_INT pos;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3832 struct face *face;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3833 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
3834 Lisp_Object string;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3835 {
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3836 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
3837 int multibyte;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3838 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
3839
100173
d704965776e6 (font_at): Set `multibyte' at first.
Kenichi Handa <handa@m17n.org>
parents: 100167
diff changeset
3840 multibyte = (NILP (string)
d704965776e6 (font_at): Set `multibyte' at first.
Kenichi Handa <handa@m17n.org>
parents: 100167
diff changeset
3841 ? ! NILP (current_buffer->enable_multibyte_characters)
d704965776e6 (font_at): Set `multibyte' at first.
Kenichi Handa <handa@m17n.org>
parents: 100167
diff changeset
3842 : 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
3843 if (c < 0)
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3844 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3845 if (NILP (string))
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3846 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3847 if (multibyte)
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3848 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3849 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
3850
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3851 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
3852 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3853 else
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3854 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
3855 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3856 else
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3857 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3858 unsigned char *str;
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3859
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3860 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
3861 if (multibyte)
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3862 {
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3863 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
3864
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3865 str = SDATA (string) + pos_byte;
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3866 c = STRING_CHAR (str, 0);
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3867 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3868 else
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3869 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
3870 }
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3871 }
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3872
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3873 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
3874 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
3875 return Qnil;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3876 if (! face)
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3877 {
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3878 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
3879 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
3880
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3881 if (STRINGP (string))
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3882 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
3883 DEFAULT_FACE_ID, 0);
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3884 else
91236
e3ba579aab1f (font_at): Handle the case that the arg C is negative.
Kenichi Handa <handa@m17n.org>
parents: 91192
diff changeset
3885 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
3886 pos + 100, 0, -1);
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3887 face = FACE_FROM_ID (f, face_id);
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3888 }
91236
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 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
3892 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
3893 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3894 if (! face->font)
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3895 return Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3896
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3897 XSETFONT (font_object, face->font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3898 return font_object;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3899 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3900
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3901
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3902 #ifdef HAVE_WINDOW_SYSTEM
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3903
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3904 /* 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
3905 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
3906 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
3907 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
3908 case, FACE must be not NULL.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3909
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3910 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
3911 *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
3912
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3913 It is assured that the current buffer (or STRING) is multibyte. */
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3914
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3915 Lisp_Object
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3916 font_range (pos, limit, w, face, string)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3917 EMACS_INT pos, *limit;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3918 struct window *w;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3919 struct face *face;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3920 Lisp_Object string;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3921 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3922 EMACS_INT pos_byte, ignore, start, start_byte;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3923 int c;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3924 Lisp_Object font_object = Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3925
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3926 if (NILP (string))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3927 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3928 pos_byte = CHAR_TO_BYTE (pos);
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3929 if (! face)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3930 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3931 int face_id;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3932
103114
fa8e2c663118 * xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents: 103041
diff changeset
3933 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
3934 *limit, 0, -1);
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3935 face = FACE_FROM_ID (XFRAME (w->frame), face_id);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3936 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3937 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3938 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3939 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3940 font_assert (face);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3941 pos_byte = string_char_to_byte (string, pos);
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 start = pos, start_byte = pos_byte;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3945 while (pos < *limit)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3946 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3947 Lisp_Object category;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3948
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3949 if (NILP (string))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3950 FETCH_CHAR_ADVANCE_NO_CHECK (c, pos, pos_byte);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3951 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3952 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
3953 if (NILP (font_object))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3954 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3955 font_object = font_for_char (face, c, pos - 1, string);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3956 if (NILP (font_object))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3957 return Qnil;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3958 continue;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3959 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3960
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3961 category = CHAR_TABLE_REF (Vunicode_category_table, c);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3962 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
3963 && ! CHAR_VARIATION_SELECTOR_P (c)
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3964 && font_encode_char (font_object, c) == FONT_INVALID_CODE)
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3965 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3966 Lisp_Object f = font_for_char (face, c, pos - 1, string);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3967 EMACS_INT i, i_byte;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3968
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3969
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3970 if (NILP (f))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3971 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3972 *limit = pos - 1;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3973 return font_object;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3974 }
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3975 i = start, i_byte = start_byte;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3976 while (i < pos - 1)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3977 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3978
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3979 if (NILP (string))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3980 FETCH_CHAR_ADVANCE_NO_CHECK (c, i, i_byte);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3981 else
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3982 FETCH_STRING_CHAR_ADVANCE_NO_CHECK (c, string, i, i_byte);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3983 category = CHAR_TABLE_REF (Vunicode_category_table, c);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3984 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
3985 && ! CHAR_VARIATION_SELECTOR_P (c)
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3986 && font_encode_char (f, c) == FONT_INVALID_CODE)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3987 {
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3988 *limit = pos - 1;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3989 return font_object;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3990 }
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3991 }
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3992 font_object = f;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3993 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
3994 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3995 return font_object;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3996 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
3997 #endif
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
3998
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3999
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4000 /* Lisp API */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4001
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4002 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
4003 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
4004 Return nil otherwise.
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4005 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
4006 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
4007 `font-object'. */)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4008 (object, extra_type)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4009 Lisp_Object object, extra_type;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4010 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4011 if (NILP (extra_type))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4012 return (FONTP (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4013 if (EQ (extra_type, Qfont_spec))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4014 return (FONT_SPEC_P (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4015 if (EQ (extra_type, Qfont_entity))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4016 return (FONT_ENTITY_P (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4017 if (EQ (extra_type, Qfont_object))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4018 return (FONT_OBJECT_P (object) ? Qt : Qnil);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4019 wrong_type_argument (intern ("font-extra-type"), extra_type);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4020 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4021
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4022 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
4023 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
4024
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4025 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
4026 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
4027
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4028 `:family', `:weight', `:slant', `:width'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4029
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4030 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
4031 `set-face-attribute'.
91081
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4032
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4033 `:foundry'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4034
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4035 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
4036
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4037 `:adstyle'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4038
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4039 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
4040 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
4041
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4042 `:registry'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4043
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4044 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
4045 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
4046
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4047 `:size'
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4048
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4049 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
4050 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
4051 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
4052
c0401e586ca3 (Ffont_get): Return a symbol for :weight, :slant, and :width.
Kenichi Handa <handa@m17n.org>
parents: 96005
diff changeset
4053 `:name'
c0401e586ca3 (Ffont_get): Return a symbol for :weight, :slant, and :width.
Kenichi Handa <handa@m17n.org>
parents: 96005
diff changeset
4054
96013
04be82e0cbd3 (Ffont_spec): Fix usage in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 96012
diff changeset
4055 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
4056
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4057 `:script'
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4058
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4059 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
4060 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
4061 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
4062
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4063 `:lang'
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4064
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4065 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
4066 e.g. `ja'.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4067
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4068 `:otf'
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4069
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4070 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
4071 required OpenType features.
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4072
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4073 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
4074 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
4075 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
4076 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
4077 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
4078
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4079 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
4080 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
4081
6bd3d2a26db9 (font_check_otf_features): Fix handling of `nil' element.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
4082 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
4083 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
4084 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
4085
100336
d53183123ad7 * font.c (Ffont_spec): Move usage to end of docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 100173
diff changeset
4086 usage: (font-spec ARGS...) */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4087 (nargs, args)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4088 int nargs;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4089 Lisp_Object *args;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4090 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4091 Lisp_Object spec = font_make_spec ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4092 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4093
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4094 for (i = 0; i < nargs; i += 2)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4095 {
103229
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4096 Lisp_Object key = args[i], val;
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4097
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4098 CHECK_SYMBOL (key);
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4099 if (i + 1 >= nargs)
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4100 error ("No value for key `%s'", SDATA (SYMBOL_NAME (key)));
499a2bc2b600 (Ffont_spec): Check arguments.
Kenichi Handa <handa@m17n.org>
parents: 103162
diff changeset
4101 val = args[i + 1];
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4102
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4103 if (EQ (key, QCname))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4104 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4105 CHECK_STRING (val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4106 font_parse_name ((char *) SDATA (val), spec);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4107 font_put_extra (spec, key, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4108 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4109 else
90451
6ffc9b378367 (enum xlfd_field_index): Rename XLFD_XXX_SIZE_INDEX to
Kenichi Handa <handa@m17n.org>
parents: 90448
diff changeset
4110 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4111 int idx = get_font_prop_index (key);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4112
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4113 if (idx >= 0)
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4114 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4115 val = font_prop_validate (idx, Qnil, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4116 if (idx < FONT_EXTRA_INDEX)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4117 ASET (spec, idx, val);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4118 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4119 font_put_extra (spec, key, val);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4120 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4121 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4122 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
4123 }
90563
7c29515f7c2a (font_parse_fcname): Don't change :name property of FONT.
Kenichi Handa <handa@m17n.org>
parents: 90556
diff changeset
4124 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4125 return spec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4126 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4127
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4128 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
4129 doc: /* Return a copy of FONT as a font-spec. */)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4130 (font)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4131 Lisp_Object font;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4132 {
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4133 Lisp_Object new_spec, tail, prev, extra;
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4134 int i;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4135
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4136 CHECK_FONT (font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4137 new_spec = font_make_spec ();
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4138 for (i = 1; i < FONT_EXTRA_INDEX; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4139 ASET (new_spec, i, AREF (font, i));
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4140 extra = Fcopy_sequence (AREF (font, FONT_EXTRA_INDEX));
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4141 /* We must remove :font-entity property. */
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4142 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
4143 if (EQ (XCAR (XCAR (tail)), QCfont_entity))
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4144 {
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4145 if (NILP (prev))
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4146 extra = XCDR (extra);
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4147 else
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4148 XSETCDR (prev, XCDR (tail));
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4149 break;
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
4150 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4151 ASET (new_spec, FONT_EXTRA_INDEX, extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4152 return new_spec;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4153 }
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 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
4156 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
4157 Every specified properties in FROM override the corresponding
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4158 properties in TO. */)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4159 (from, to)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4160 Lisp_Object from, to;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4161 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4162 Lisp_Object extra, tail;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4163 int i;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4164
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4165 CHECK_FONT (from);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4166 CHECK_FONT (to);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4167 to = Fcopy_font_spec (to);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4168 for (i = 0; i < FONT_EXTRA_INDEX; i++)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4169 ASET (to, i, AREF (from, i));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4170 extra = AREF (to, FONT_EXTRA_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4171 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
4172 if (! EQ (XCAR (XCAR (tail)), Qfont_entity))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4173 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4174 Lisp_Object slot = assq_no_quit (XCAR (XCAR (tail)), extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4175
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4176 if (! NILP (slot))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4177 XSETCDR (slot, XCDR (XCAR (tail)));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4178 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4179 extra = Fcons (Fcons (XCAR (XCAR (tail)), XCDR (XCAR (tail))), extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4180 }
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4181 ASET (to, FONT_EXTRA_INDEX, extra);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4182 return to;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4183 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4184
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4185 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
4186 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
4187 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
4188 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
4189 :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
4190 :size, :name, :script
3172ff476053 (font_match_p): Fix for the case that a vector of
Kenichi Handa <handa@m17n.org>
parents: 99072
diff changeset
4191 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
4192 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
4193 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
4194 (font, key)
2c767d9f0bb1 (font_prop_validate_symbol): The argument prop_index is
Kenichi Handa <handa@m17n.org>
parents: 90993
diff changeset
4195 Lisp_Object font, key;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4196 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4197 int idx;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4198
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4199 CHECK_FONT (font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4200 CHECK_SYMBOL (key);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4201
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4202 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
4203 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
4204 return font_style_symbolic (font, idx, 0);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4205 if (idx >= 0 && idx < FONT_EXTRA_INDEX)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4206 return AREF (font, idx);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4207 return Fcdr (Fassq (key, AREF (font, FONT_EXTRA_INDEX)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4208 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4209
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4210 #ifdef HAVE_WINDOW_SYSTEM
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4211
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4212 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
4213 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
4214 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
4215 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
4216
96012
c04088bb7b0d (Ffont_face_attributes): Fix definition.
Andreas Schwab <schwab@suse.de>
parents: 96010
diff changeset
4217 \(: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
4218
96014
f4a50aac009c (Ffont_face_attributes): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 96013
diff changeset
4219 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
4220 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
4221 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
4222
f4a50aac009c (Ffont_face_attributes): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 96013
diff changeset
4223 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
4224 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
4225 (font, frame)
96012
c04088bb7b0d (Ffont_face_attributes): Fix definition.
Andreas Schwab <schwab@suse.de>
parents: 96010
diff changeset
4226 Lisp_Object font, frame;
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4227 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4228 struct frame *f;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4229 Lisp_Object plist[10];
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4230 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
4231 int n = 0;
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4232
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4233 if (NILP (frame))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4234 frame = selected_frame;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4235 CHECK_LIVE_FRAME (frame);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4236 f = XFRAME (frame);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4237
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4238 if (STRINGP (font))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4239 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4240 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
4241 Lisp_Object name = font;
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4242 if (fontset >= 0)
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4243 font = fontset_ascii (fontset);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4244 font = font_spec_from_name (name);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4245 if (! FONTP (font))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4246 signal_error ("Invalid font name", name);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4247 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4248 else if (! FONTP (font))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4249 signal_error ("Invalid font object", font);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4250
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4251 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
4252 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4253 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4254 plist[n++] = QCfamily;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4255 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
4256 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4257
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4258 val = AREF (font, FONT_SIZE_INDEX);
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4259 if (INTEGERP (val))
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4260 {
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4261 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
4262 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
4263 plist[n++] = QCheight;
96227
f9eb9f0d6678 (Ffont_face_attributes): Multiply pixel size before point
Jason Rumney <jasonr@gnu.org>
parents: 96224
diff changeset
4264 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
4265 }
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4266 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
4267 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4268 plist[n++] = QCheight;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4269 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
4270 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4271
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4272 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
4273 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4274 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4275 plist[n++] = QCweight;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4276 plist[n++] = val;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4277 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4278
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4279 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
4280 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4281 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4282 plist[n++] = QCslant;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4283 plist[n++] = val;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4284 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4285
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4286 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
4287 if (! NILP (val))
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4288 {
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4289 plist[n++] = QCwidth;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4290 plist[n++] = val;
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4291 }
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4292
73e422173a87 (Ffont_face_attributes): Omit key-attribute pairs not defined by the
Chong Yidong <cyd@stupidchicken.com>
parents: 96077
diff changeset
4293 return Flist (n, plist);
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
4294 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4295
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4296 #endif
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
4297
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4298 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
4299 doc: /* Set one property of FONT-SPEC: give property PROP value VAL. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4300 (font_spec, prop, val)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4301 Lisp_Object font_spec, prop, val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4302 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4303 int idx;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4304
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4305 CHECK_FONT_SPEC (font_spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4306 idx = get_font_prop_index (prop);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4307 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
4308 ASET (font_spec, idx, font_prop_validate (idx, Qnil, val));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4309 else
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4310 font_put_extra (font_spec, prop, font_prop_validate (0, prop, val));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4311 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4312 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4313
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4314 DEFUN ("list-fonts", Flist_fonts, Slist_fonts, 1, 4, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4315 doc: /* List available fonts matching FONT-SPEC on the current frame.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4316 Optional 2nd argument FRAME specifies the target frame.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4317 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
4318 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
4319 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
4320 how close they are to PREFER. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4321 (font_spec, frame, num, prefer)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4322 Lisp_Object font_spec, frame, num, prefer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4323 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4324 Lisp_Object vec, list;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4325 int n = 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4326
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4327 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4328 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4329 CHECK_LIVE_FRAME (frame);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4330 CHECK_FONT_SPEC (font_spec);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4331 if (! NILP (num))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4332 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4333 CHECK_NUMBER (num);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4334 n = XINT (num);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4335 if (n <= 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4336 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4337 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4338 if (! NILP (prefer))
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4339 CHECK_FONT_SPEC (prefer);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4340
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4341 list = font_list_entities (frame, font_spec);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4342 if (NILP (list))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4343 return Qnil;
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4344 if (NILP (XCDR (list))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4345 && ASIZE (XCAR (list)) == 1)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4346 return Fcons (AREF (XCAR (list), 0), Qnil);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4347
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4348 if (! NILP (prefer))
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4349 vec = font_sort_entities (list, prefer, frame, 0);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4350 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4351 vec = font_vconcat_entity_vectors (list);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4352 if (n == 0 || n >= ASIZE (vec))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4353 {
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4354 Lisp_Object args[2];
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4355
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4356 args[0] = vec;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4357 args[1] = Qnil;
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4358 list = Fappend (2, args);
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4359 }
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4360 else
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4361 {
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4362 for (list = Qnil, n--; n >= 0; n--)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
4363 list = Fcons (AREF (vec, n), list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4364 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4365 return list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4366 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4367
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4368 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
4369 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
4370 Optional argument FRAME, if non-nil, specifies the target frame. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4371 (frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4372 Lisp_Object frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4373 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4374 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4375 struct font_driver_list *driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4376 Lisp_Object list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4377
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4378 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4379 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4380 CHECK_LIVE_FRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4381 f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4382 list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4383 for (driver_list = f->font_driver_list; driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4384 driver_list = driver_list->next)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4385 if (driver_list->driver->list_family)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4386 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4387 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
4388 Lisp_Object tail = list;
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4389
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4390 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
4391 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
4392 && SYMBOLP (XCAR (val)))
d3a67a9e7177 (Ffont_family_list): Return a list of strings, not symbols.
Chong Yidong <cyd@stupidchicken.com>
parents: 100985
diff changeset
4393 list = Fcons (SYMBOL_NAME (XCAR (val)), list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4394 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4395 return list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4396 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4397
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4398 DEFUN ("find-font", Ffind_font, Sfind_font, 1, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4399 doc: /* Return a font-entity matching with FONT-SPEC on the current frame.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4400 Optional 2nd argument FRAME, if non-nil, specifies the target frame. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4401 (font_spec, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4402 Lisp_Object font_spec, frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4403 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4404 Lisp_Object val = Flist_fonts (font_spec, frame, make_number (1), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4405
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4406 if (CONSP (val))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4407 val = XCAR (val);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4408 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4409 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4410
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4411 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
4412 doc: /* Return XLFD name of FONT.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4413 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
4414 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
4415 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
4416 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
4417 (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
4418 Lisp_Object font, fold_wildcards;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4419 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4420 char name[256];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4421 int pixel_size = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4422
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4423 CHECK_FONT (font);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4424
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4425 if (FONT_OBJECT_P (font))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4426 {
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4427 Lisp_Object font_name = AREF (font, FONT_NAME_INDEX);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4428
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4429 if (STRINGP (font_name)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4430 && 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
4431 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4432 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
4433 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
4434 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
4435 goto done;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4436 }
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4437 pixel_size = XFONT_OBJECT (font)->pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4438 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4439 if (font_unparse_xlfd (font, pixel_size, name, 256) < 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4440 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
4441 done:
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4442 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
4443 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4444 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
4445
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4446 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
4447 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4448 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
4449 p0 = p1;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4450 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4451 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
4452
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4453 return build_string (name);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4454 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4455
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4456 DEFUN ("clear-font-cache", Fclear_font_cache, Sclear_font_cache, 0, 0, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4457 doc: /* Clear font cache. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4458 ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4459 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4460 Lisp_Object list, frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4461
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4462 FOR_EACH_FRAME (list, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4463 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4464 FRAME_PTR f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4465 struct font_driver_list *driver_list = f->font_driver_list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4466
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4467 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
4468 if (driver_list->on)
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4469 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4470 Lisp_Object cache = driver_list->driver->get_cache (f);
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4471 Lisp_Object val;
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4472
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4473 val = XCDR (cache);
91909
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
4474 while (! NILP (val)
a549624ad4bc Include xterm.h.
Kenichi Handa <handa@m17n.org>
parents: 91871
diff changeset
4475 && ! 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
4476 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
4477 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
4478 val = XCDR (XCAR (val));
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4479 if (XINT (XCAR (val)) == 0)
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4480 {
91247
217eabc2db11 (font_prepare_cache, font_finish_cache, font_get_cache): New
Kenichi Handa <handa@m17n.org>
parents: 91240
diff changeset
4481 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
4482 XSETCDR (cache, XCDR (val));
90549
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4483 }
5dab62a4573c (font_unparse_fcname): Fix typo (swidth->width).
Kenichi Handa <handa@m17n.org>
parents: 90541
diff changeset
4484 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4485 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4486
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4487 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4488 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4489
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4490
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4491 void
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4492 font_fill_lglyph_metrics (glyph, font_object)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4493 Lisp_Object glyph, font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4494 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4495 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
4496 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
4497 /* 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
4498 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
4499 struct font_metrics metrics;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4500
97853
fa1023e4960c (font_fill_lglyph_metrics): Use EMACS_INT in LGLYPH_SET_CODE to avoid
Eli Zaretskii <eliz@gnu.org>
parents: 97822
diff changeset
4501 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
4502 code = ecode;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4503 font->driver->text_extents (font, &code, 1, &metrics);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4504 LGLYPH_SET_LBEARING (glyph, metrics.lbearing);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4505 LGLYPH_SET_RBEARING (glyph, metrics.rbearing);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4506 LGLYPH_SET_WIDTH (glyph, metrics.width);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4507 LGLYPH_SET_ASCENT (glyph, metrics.ascent);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4508 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
4509 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4510
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4511
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4512 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
4513 doc: /* Shape the glyph-string GSTRING.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4514 Shaping means substituting glyphs and/or adjusting positions of glyphs
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4515 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
4516 header of the glyph-string.
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4517
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4518 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
4519 created glyph-string. Otherwise, the value is nil. */)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4520 (gstring)
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4521 Lisp_Object gstring;
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4522 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4523 struct font *font;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4524 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
4525 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
4526
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4527 if (! composition_gstring_p (gstring))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4528 signal_error ("Invalid glyph-string: ", gstring);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4529 if (! NILP (LGSTRING_ID (gstring)))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4530 return gstring;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4531 font_object = LGSTRING_FONT (gstring);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4532 CHECK_FONT_OBJECT (font_object);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4533 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
4534 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
4535 return Qnil;
275e5e980fc4 If the font driver doesn't have `shape' function, return Qnil.
Kenichi Handa <handa@m17n.org>
parents: 92113
diff changeset
4536
91273
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4537 /* 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
4538 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
4539 {
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4540 n = font->driver->shape (gstring);
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4541 if (INTEGERP (n))
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4542 break;
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4543 gstring = larger_vector (gstring,
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4544 ASIZE (gstring) + LGSTRING_GLYPH_LEN (gstring),
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4545 Qnil);
91273
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4546 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4547 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
4548 return Qnil;
100336
d53183123ad7 * font.c (Ffont_spec): Move usage to end of docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 100173
diff changeset
4549
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4550 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
4551 from = LGLYPH_FROM (glyph);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4552 to = LGLYPH_TO (glyph);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4553 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
4554 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4555 Lisp_Object this = LGSTRING_GLYPH (gstring, i);
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4556
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4557 if (NILP (this))
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4558 break;
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4559 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
4560 {
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4561 if (j < i - 1)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4562 for (; j < i; j++)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4563 {
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4564 glyph = LGSTRING_GLYPH (gstring, j);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4565 LGLYPH_SET_FROM (glyph, from);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4566 LGLYPH_SET_TO (glyph, to);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4567 }
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4568 from = LGLYPH_FROM (this);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4569 to = LGLYPH_TO (this);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4570 j = i;
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4571 }
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4572 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4573 {
98124
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4574 if (from > LGLYPH_FROM (this))
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4575 from = LGLYPH_FROM (this);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4576 if (to < LGLYPH_TO (this))
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4577 to = LGLYPH_TO (this);
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4578 }
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4579 }
98124
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4580 if (j < i - 1)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4581 for (; j < i; j++)
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4582 {
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4583 glyph = LGSTRING_GLYPH (gstring, j);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4584 LGLYPH_SET_FROM (glyph, from);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4585 LGLYPH_SET_TO (glyph, to);
629cccd78d85 (Ffont_shape_gstring): Make glyphs of non-nil adjustment
Kenichi Handa <handa@m17n.org>
parents: 97853
diff changeset
4586 }
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
4587 return composition_gstring_put_cache (gstring, XINT (n));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4588 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4589
100793
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4590 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
4591 2, 2, 0,
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4592 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
4593 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
4594 where
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4595 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
4596 (#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
4597 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
4598 (font_object, character)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4599 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
4600 {
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4601 unsigned variations[256];
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4602 struct font *font;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4603 int i, n;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4604 Lisp_Object val;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4605
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4606 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
4607 CHECK_CHARACTER (character);
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4608 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
4609 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
4610 return Qnil;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4611 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
4612 if (! n)
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4613 return Qnil;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4614 val = Qnil;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4615 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
4616 if (variations[i])
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4617 {
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4618 Lisp_Object code;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4619 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
4620 /* Stops GCC whining about limited range of data type. */
63d9f73bf9d9 (Ffont_variation_glyphs): Silence compiler.
Glenn Morris <rgm@gnu.org>
parents: 101156
diff changeset
4621 EMACS_INT var = variations[i];
63d9f73bf9d9 (Ffont_variation_glyphs): Silence compiler.
Glenn Morris <rgm@gnu.org>
parents: 101156
diff changeset
4622
63d9f73bf9d9 (Ffont_variation_glyphs): Silence compiler.
Glenn Morris <rgm@gnu.org>
parents: 101156
diff changeset
4623 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
4624 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
4625 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
4626 else
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4627 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
4628 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
4629 }
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4630 return val;
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4631 }
04bd84418dd7 (font_range): Don't require a font for a variation
Kenichi Handa <handa@m17n.org>
parents: 100759
diff changeset
4632
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
4633 #if 0
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
4634
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4635 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
4636 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
4637 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
4638 (SCRIPT LANGSYS GSUB GPOS)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4639 where
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4640 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
4641 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
4642 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
4643
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4644 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
4645
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4646 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
4647 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
4648 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
4649 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
4650 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
4651
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4652 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
4653 the glyph-string GSTRING-IN.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4654
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4655 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
4656 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
4657 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
4658
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4659 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
4660 the value is 0.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4661
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4662 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
4663 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
4664
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4665 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
4666 glyph-string. */)
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4667 (otf_features, gstring_in, from, to, gstring_out, index)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4668 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
4669 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4670 Lisp_Object font_object = LGSTRING_FONT (gstring_in);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4671 Lisp_Object val;
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4672 struct font *font;
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4673 int len, num;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4674
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4675 check_otf_features (otf_features);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4676 CHECK_FONT_OBJECT (font_object);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4677 font = XFONT_OBJECT (font_object);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4678 if (! font->driver->otf_drive)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4679 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
4680 SDATA (SYMBOL_NAME (font->driver->type)));
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4681 CHECK_CONS (otf_features);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4682 CHECK_SYMBOL (XCAR (otf_features));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4683 val = XCDR (otf_features);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4684 CHECK_SYMBOL (XCAR (val));
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4685 val = XCDR (otf_features);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4686 if (! NILP (val))
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4687 CHECK_CONS (val);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4688 len = check_gstring (gstring_in);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4689 CHECK_VECTOR (gstring_out);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4690 CHECK_NATNUM (from);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4691 CHECK_NATNUM (to);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4692 CHECK_NATNUM (index);
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 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
4695 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
4696 if (XINT (index) >= ASIZE (gstring_out))
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4697 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
4698 num = font->driver->otf_drive (font, otf_features,
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4699 gstring_in, XINT (from), XINT (to),
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4700 gstring_out, XINT (index), 0);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4701 if (num < 0)
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4702 return Qnil;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4703 return make_number (num);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4704 }
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4705
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4706 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
4707 3, 3, 0,
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4708 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
4709 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
4710 in this format:
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4711 (SCRIPT LANGSYS FEATURE ...)
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4712 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
4713
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4714 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
4715 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
4716 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
4717 corresponding character. */)
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4718 (font_object, character, otf_features)
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4719 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
4720 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4721 struct font *font;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4722 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
4723 Lisp_Object alternates;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4724 int i, num;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4725
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4726 CHECK_FONT_GET_OBJECT (font_object, font);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4727 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
4728 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
4729 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
4730 CHECK_CHARACTER (character);
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
4731 CHECK_CONS (otf_features);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4732
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4733 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
4734 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
4735 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
4736 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
4737 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
4738 gstring_out, 0, 1)) < 0)
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4739 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
4740 make_number (ASIZE (gstring_out) * 2));
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4741 alternates = Qnil;
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4742 for (i = 0; i < num; i++)
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4743 {
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4744 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
4745 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
4746 unsigned code = LGLYPH_CODE (g);
90556
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 alternates = Fcons (Fcons (make_number (code),
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4749 c > 0 ? make_number (c) : Qnil),
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4750 alternates);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4751 }
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4752 return Fnreverse (alternates);
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4753 }
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
4754 #endif /* 0 */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4755
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4756 #ifdef FONT_DEBUG
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4757
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4758 DEFUN ("open-font", Fopen_font, Sopen_font, 1, 3, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4759 doc: /* Open FONT-ENTITY. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4760 (font_entity, size, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4761 Lisp_Object font_entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4762 Lisp_Object size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4763 Lisp_Object frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4764 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4765 int isize;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4766
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4767 CHECK_FONT_ENTITY (font_entity);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4768 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4769 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4770 CHECK_LIVE_FRAME (frame);
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4771
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4772 if (NILP (size))
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4773 isize = XINT (AREF (font_entity, FONT_SIZE_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4774 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4775 {
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4776 CHECK_NUMBER_OR_FLOAT (size);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4777 if (FLOATP (size))
100165
7add351b47c9 (Fopen_font): Compute pixel size correctly.
Chong Yidong <cyd@stupidchicken.com>
parents: 100126
diff changeset
4778 isize = POINT_TO_PIXEL (XFLOAT_DATA (size), XFRAME (frame)->resy);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4779 else
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4780 isize = XINT (size);
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4781 if (isize == 0)
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4782 isize = 120;
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4783 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4784 return font_open_entity (XFRAME (frame), font_entity, isize);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4785 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4786
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4787 DEFUN ("close-font", Fclose_font, Sclose_font, 1, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4788 doc: /* Close FONT-OBJECT. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4789 (font_object, frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4790 Lisp_Object font_object, frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4791 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4792 CHECK_FONT_OBJECT (font_object);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4793 if (NILP (frame))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4794 frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4795 CHECK_LIVE_FRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4796 font_close_object (XFRAME (frame), font_object);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4797 return Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4798 }
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 ("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
4801 doc: /* Return information about FONT-OBJECT.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4802 The value is a vector:
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4803 [ 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
4804 CAPABILITY ]
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4805
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4806 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
4807 provide a name).
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4808
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4809 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
4810 doesn't provide a file name).
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4811
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4812 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
4813
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
4814 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
4815
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4816 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
4817 pixels.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4818
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4819 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
4820 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
4821 remaining elements describe the details of the font capability.
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4822
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4823 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
4824 \(opentype GSUB GPOS)
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4825 where GSUB shows which "GSUB" features the font supports, and GPOS
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4826 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
4827 lists of the format:
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4828 \((SCRIPT (LANGSYS FEATURE ...) ...) ...)
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4829
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4830 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
4831 one.
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4832
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4833 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
4834
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4835 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
4836 representing the default langsys.
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
4837
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4838 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
4839
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4840 If the font is not OpenType font, CAPABILITY is nil. */)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4841 (font_object)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4842 Lisp_Object font_object;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4843 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4844 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4845 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4846
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4847 CHECK_FONT_GET_OBJECT (font_object, font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4848
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4849 val = Fmake_vector (make_number (9), Qnil);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4850 ASET (val, 0, AREF (font_object, FONT_NAME_INDEX));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4851 ASET (val, 1, AREF (font_object, FONT_FILE_INDEX));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4852 ASET (val, 2, make_number (font->pixel_size));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4853 ASET (val, 3, make_number (font->max_width));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4854 ASET (val, 4, make_number (font->ascent));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4855 ASET (val, 5, make_number (font->descent));
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4856 ASET (val, 6, make_number (font->space_width));
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4857 ASET (val, 7, make_number (font->average_width));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4858 if (font->driver->otf_capability)
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
4859 ASET (val, 8, Fcons (Qopentype, font->driver->otf_capability (font)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4860 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4861 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4862
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4863 DEFUN ("get-font-glyphs", Fget_font_glyphs, Sget_font_glyphs, 2, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4864 doc: /* Return a vector of glyphs of FONT-OBJECT for drawing STRING.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4865 Each element is a vector [GLYPH-CODE LBEARING RBEARING WIDTH ASCENT DESCENT]. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4866 (font_object, string)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4867 Lisp_Object font_object, string;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4868 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4869 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4870 int i, len;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4871 Lisp_Object vec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4872
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4873 CHECK_FONT_GET_OBJECT (font_object, font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4874 CHECK_STRING (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4875 len = SCHARS (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4876 vec = Fmake_vector (make_number (len), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4877 for (i = 0; i < len; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4878 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4879 Lisp_Object ch = Faref (string, make_number (i));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4880 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4881 int c = XINT (ch);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4882 unsigned code;
91871
436548f01688 (Ffont_fill_gstring, Fget_font_glyphs): Fix compilation warnings.
Eli Zaretskii <eliz@gnu.org>
parents: 91553
diff changeset
4883 EMACS_INT cod;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4884 struct font_metrics metrics;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4885
91871
436548f01688 (Ffont_fill_gstring, Fget_font_glyphs): Fix compilation warnings.
Eli Zaretskii <eliz@gnu.org>
parents: 91553
diff changeset
4886 cod = code = font->driver->encode_char (font, c);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4887 if (code == FONT_INVALID_CODE)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4888 continue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4889 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
4890 if (cod <= MOST_POSITIVE_FIXNUM)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4891 ASET (val, 0, make_number (code));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4892 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4893 ASET (val, 0, Fcons (make_number (code >> 16),
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4894 make_number (code & 0xFFFF)));
92233
3642a8778bbf (Ffont_spec, Ffont_at): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 92183
diff changeset
4895 font->driver->text_extents (font, &code, 1, &metrics);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4896 ASET (val, 1, make_number (metrics.lbearing));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4897 ASET (val, 2, make_number (metrics.rbearing));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4898 ASET (val, 3, make_number (metrics.width));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4899 ASET (val, 4, make_number (metrics.ascent));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4900 ASET (val, 5, make_number (metrics.descent));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4901 ASET (vec, i, val);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4902 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4903 return vec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4904 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4905
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4906 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
4907 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
4908 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
4909 (spec, font)
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4910 Lisp_Object spec, font;
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4911 {
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4912 CHECK_FONT_SPEC (spec);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
4913 CHECK_FONT (font);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4914
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4915 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
4916 }
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
4917
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4918 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
4919 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
4920 Optional second arg WINDOW, if non-nil, is a window displaying
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4921 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
4922 (position, window, string)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4923 Lisp_Object position, window, string;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4924 {
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4925 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
4926 EMACS_INT pos;
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4927
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4928 if (NILP (string))
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4929 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4930 CHECK_NUMBER_COERCE_MARKER (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4931 pos = XINT (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4932 if (pos < BEGV || pos >= ZV)
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4933 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
4934 }
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4935 else
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4936 {
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4937 CHECK_NUMBER (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4938 CHECK_STRING (string);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4939 pos = XINT (position);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
4940 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
4941 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
4942 }
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4943 if (NILP (window))
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4944 window = selected_window;
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4945 CHECK_LIVE_WINDOW (window);
91273
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4946 w = XWINDOW (window);
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4947
f19e3a3100e2 (Ffont_fill_gstring): Stop filling when a character not
Kenichi Handa <handa@m17n.org>
parents: 91267
diff changeset
4948 return font_at (-1, pos, NULL, w, string);
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4949 }
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
4950
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4951 #if 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4952 DEFUN ("draw-string", Fdraw_string, Sdraw_string, 2, 2, 0,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4953 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
4954 The value is a number of glyphs drawn.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4955 Type C-l to recover what previously shown. */)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4956 (font_object, string)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4957 Lisp_Object font_object, string;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4958 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4959 Lisp_Object frame = selected_frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4960 FRAME_PTR f = XFRAME (frame);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4961 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4962 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4963 int i, len, width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4964 unsigned *code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4965
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4966 CHECK_FONT_GET_OBJECT (font_object, font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4967 CHECK_STRING (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4968 len = SCHARS (string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4969 code = alloca (sizeof (unsigned) * len);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4970 for (i = 0; i < len; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4971 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4972 Lisp_Object ch = Faref (string, make_number (i));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4973 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4974 int c = XINT (ch);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4975
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4976 code[i] = font->driver->encode_char (font, c);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4977 if (code[i] == FONT_INVALID_CODE)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4978 break;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4979 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4980 face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4981 face->fontp = font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4982 if (font->driver->prepare_face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4983 font->driver->prepare_face (f, face);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4984 width = font->driver->text_extents (font, code, i, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4985 len = font->driver->draw_text (f, face, 0, font->ascent, code, i, width);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4986 if (font->driver->done_face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4987 font->driver->done_face (f, face);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4988 face->fontp = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4989 return make_number (len);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4990 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4991 #endif
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4992
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4993 #endif /* FONT_DEBUG */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4994
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
4995 #ifdef HAVE_WINDOW_SYSTEM
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
4996
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
4997 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
4998 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
4999 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
5000 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
5001 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
5002 where
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5003 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
5004 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
5005 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
5006 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
5007 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
5008 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
5009 how to compose characters.
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5010 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
5011 (name, frame)
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5012 Lisp_Object name, frame;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5013 {
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5014 FRAME_PTR f;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5015 struct font *font;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5016 Lisp_Object info;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5017 Lisp_Object font_object;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5018
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5019 (*check_window_system_func) ();
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5020
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5021 if (! FONTP (name))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5022 CHECK_STRING (name);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5023 if (NILP (frame))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5024 frame = selected_frame;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5025 CHECK_LIVE_FRAME (frame);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5026 f = XFRAME (frame);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5027
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5028 if (STRINGP (name))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5029 {
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5030 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
5031
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5032 if (fontset >= 0)
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5033 name = fontset_ascii (fontset);
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5034 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
5035 }
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5036 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
5037 font_object = name;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5038 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
5039 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
5040 else
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5041 {
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5042 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
5043 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
5044
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5045 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
5046 }
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5047 if (NILP (font_object))
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5048 return Qnil;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5049 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
5050
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5051 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
5052 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
5053 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
5054 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
5055 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
5056 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
5057 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
5058 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
5059
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5060 #if 0
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5061 /* 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
5062 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
5063 by `reference-count'. */
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5064 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
5065 #endif
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5066 return info;
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5067 }
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5068 #endif
95403
26df7325a6ff (font_style_to_value, font_score): Delete casting of the
Kenichi Handa <handa@m17n.org>
parents: 95359
diff changeset
5069
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5070
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5071 #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
5072 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
5073
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5074 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
5075 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
5076 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
5077 int nelement;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5078 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5079 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
5080 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
5081
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5082 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
5083 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
5084 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5085 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
5086 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
5087 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
5088 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
5089 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
5090 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
5091 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5092 return table;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5093 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5094
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5095 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
5096
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5097 /* 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
5098 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
5099 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
5100 static Lisp_Object Vfont_log_deferred;
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5101
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5102 /* 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
5103 `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
5104 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
5105 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
5106 void
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5107 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
5108 char *action;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5109 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
5110 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5111 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
5112 int i;
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5113
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5114 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
5115 return;
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5116 if (STRINGP (AREF (Vfont_log_deferred, 0)))
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5117 {
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5118 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
5119
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5120 ASET (Vfont_log_deferred, 0, Qnil);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5121 font_add_log (str, AREF (Vfont_log_deferred, 1),
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5122 AREF (Vfont_log_deferred, 2));
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5123 }
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5124
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5125 if (FONTP (arg))
97538
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5126 {
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5127 Lisp_Object tail, elt;
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5128 Lisp_Object equalstr = build_string ("=");
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5129
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5130 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
5131 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
5132 tail = XCDR (tail))
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5133 {
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5134 elt = XCAR (tail);
99072
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5135 if (EQ (XCAR (elt), QCscript)
741755a52dcf (font_add_log): Check the values of extra properties.
Kenichi Handa <handa@m17n.org>
parents: 98717
diff changeset
5136 && SYMBOLP (XCDR (elt)))
97538
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5137 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
5138 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
5139 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
5140 && SYMBOLP (XCDR (elt)))
97538
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5141 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
5142 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
5143 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
5144 && 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
5145 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
5146 concat2 (equalstr,
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5147 SYMBOL_NAME (XCAR (XCDR (elt)))));
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5148 }
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5149 arg = val;
1a792d38ec5a (font_add_log): Add the font properties :script, :lang,
Kenichi Handa <handa@m17n.org>
parents: 97043
diff changeset
5150 }
103889
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5151
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5152 if (CONSP (result)
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5153 && VECTORP (XCAR (result))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5154 && ASIZE (XCAR (result)) > 0
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5155 && FONTP (AREF (XCAR (result), 0)))
82ad563e96ed (font_vconcat_entity_vectors): New function.
Kenichi Handa <handa@m17n.org>
parents: 103548
diff changeset
5156 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
5157 if (FONTP (result))
96077
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5158 {
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5159 val = Ffont_xlfd_name (result, Qt);
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5160 if (! FONT_SPEC_P (result))
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5161 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
5162 build_string (":"), val);
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5163 result = val;
86e3f462b0c2 (font_parse_xlfd): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 96073
diff changeset
5164 }
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5165 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
5166 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5167 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
5168 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
5169 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5170 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
5171 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
5172 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
5173 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
5174 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5175 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5176 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
5177 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5178 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
5179 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
5180 {
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5181 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
5182 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
5183 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
5184 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
5185 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5186 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5187 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
5188 }
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5189
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5190 /* 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
5191 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
5192 as font_add_log. */
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5193
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5194 void
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5195 font_deferred_log (action, arg, result)
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5196 char *action;
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5197 Lisp_Object arg, result;
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5198 {
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5199 if (EQ (Vfont_log, Qt))
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5200 return;
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5201 ASET (Vfont_log_deferred, 0, build_string (action));
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5202 ASET (Vfont_log_deferred, 1, arg);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5203 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
5204 }
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5205
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5206 extern void syms_of_ftfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5207 extern void syms_of_xfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5208 extern void syms_of_xftfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5209 extern void syms_of_ftxfont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5210 extern void syms_of_bdffont P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5211 extern void syms_of_w32font P_ (());
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5212 extern void syms_of_atmfont P_ (());
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5213 extern void syms_of_nsfont P_ (());
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5214
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5215 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5216 syms_of_font ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5217 {
95867
2a64ffbf0ec3 (font_score): Delete arg alternate_families. Check only
Kenichi Handa <handa@m17n.org>
parents: 95824
diff changeset
5218 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
5219 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
5220 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
5221 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
5222 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
5223 /* Note that the other elements in sort_shift_bits are not used. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5224
91135
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
5225 staticpro (&font_charset_alist);
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
5226 font_charset_alist = Qnil;
49dbc35e3f99 * font.c [HAVE_M17N_FLT]: Include <m17n-flt.h>.
Kenichi Handa <handa@m17n.org>
parents: 91125
diff changeset
5227
90677
424dec0c7b5d (Qopentype): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90640
diff changeset
5228 DEFSYM (Qopentype, "opentype");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5229
95699
0afdc320716c (Qascii_0): New variable.
Kenichi Handa <handa@m17n.org>
parents: 95573
diff changeset
5230 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
5231 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
5232 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
5233 DEFSYM (Qunicode_bmp, "unicode-bmp");
90622
bb9362e3a03b (Qunicode_sip): New variable.
Kenichi Handa <handa@m17n.org>
parents: 90590
diff changeset
5234 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
5235
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5236 DEFSYM (QCf, "Cf");
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5237
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5238 DEFSYM (QCotf, ":otf");
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5239 DEFSYM (QClang, ":lang");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5240 DEFSYM (QCscript, ":script");
91125
6c9a19ff6c55 (Qfontp): Remove unused symbol.
Jason Rumney <jasonr@gnu.org>
parents: 91112
diff changeset
5241 DEFSYM (QCantialias, ":antialias");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5242
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5243 DEFSYM (QCfoundry, ":foundry");
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5244 DEFSYM (QCadstyle, ":adstyle");
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5245 DEFSYM (QCregistry, ":registry");
90481
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
5246 DEFSYM (QCspacing, ":spacing");
93690200f520 (POINT_TO_PIXEL): Don't divice POINT by 10.
Kenichi Handa <handa@m17n.org>
parents: 90476
diff changeset
5247 DEFSYM (QCdpi, ":dpi");
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5248 DEFSYM (QCscalable, ":scalable");
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5249 DEFSYM (QCavgwidth, ":avgwidth");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5250 DEFSYM (QCfont_entity, ":font-entity");
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5251 DEFSYM (QCfc_unknown_spec, ":fc-unknown-spec");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5252
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5253 DEFSYM (Qc, "c");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5254 DEFSYM (Qm, "m");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5255 DEFSYM (Qp, "p");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5256 DEFSYM (Qd, "d");
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5257
103011
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
5258 DEFSYM (Qja, "ja");
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
5259 DEFSYM (Qko, "ko");
8f0fbb48af5a * font.c (Qja, Qko): Move definitions here from ftfont.c.
Chong Yidong <cyd@stupidchicken.com>
parents: 102990
diff changeset
5260
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5261 staticpro (&null_vector);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5262 null_vector = Fmake_vector (make_number (0), Qnil);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5263
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5264 staticpro (&scratch_font_spec);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5265 scratch_font_spec = Ffont_spec (0, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5266 staticpro (&scratch_font_prefer);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5267 scratch_font_prefer = Ffont_spec (0, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5268
97558
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5269 staticpro (&Vfont_log_deferred);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5270 Vfont_log_deferred = Fmake_vector (make_number (3), Qnil);
ec399baa25dd (Vfont_log_deferred): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97538
diff changeset
5271
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5272 #if 0
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5273 #ifdef HAVE_LIBOTF
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5274 staticpro (&otf_list);
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5275 otf_list = Qnil;
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5276 #endif /* HAVE_LIBOTF */
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5277 #endif /* 0 */
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5278
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5279 defsubr (&Sfontp);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5280 defsubr (&Sfont_spec);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5281 defsubr (&Sfont_get);
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
5282 #ifdef HAVE_WINDOW_SYSTEM
95972
e427600f176b (font_parse_fcname): Only only one decimal point.
Chong Yidong <cyd@stupidchicken.com>
parents: 95958
diff changeset
5283 defsubr (&Sfont_face_attributes);
96073
4af4f5a1eb34 (Ffont_face_attributes): Only define if
Andreas Schwab <schwab@suse.de>
parents: 96049
diff changeset
5284 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5285 defsubr (&Sfont_put);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5286 defsubr (&Slist_fonts);
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5287 defsubr (&Sfont_family_list);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5288 defsubr (&Sfind_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5289 defsubr (&Sfont_xlfd_name);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5290 defsubr (&Sclear_font_cache);
97822
f44734c99365 (QCf): New variable.
Kenichi Handa <handa@m17n.org>
parents: 97558
diff changeset
5291 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
5292 defsubr (&Sfont_variation_glyphs);
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5293 #if 0
90817
d2c230a67741 (struct otf_list): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 90811
diff changeset
5294 defsubr (&Sfont_drive_otf);
90556
e56a86aa94cc (font_otf_capability): Fix handling of the default
Kenichi Handa <handa@m17n.org>
parents: 90549
diff changeset
5295 defsubr (&Sfont_otf_alternates);
95290
e3e5f8759ca5 (LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)
Kenichi Handa <handa@m17n.org>
parents: 95225
diff changeset
5296 #endif /* 0 */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5297
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5298 #ifdef FONT_DEBUG
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5299 defsubr (&Sopen_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5300 defsubr (&Sclose_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5301 defsubr (&Squery_font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5302 defsubr (&Sget_font_glyphs);
90503
8e3ffc0a529f (QCscalable, Qc, Qm, Qp, Qd): New variables.
Kenichi Handa <handa@m17n.org>
parents: 90490
diff changeset
5303 defsubr (&Sfont_match_p);
90541
b7130e76c2f9 Include window.h.
Kenichi Handa <handa@m17n.org>
parents: 90530
diff changeset
5304 defsubr (&Sfont_at);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5305 #if 0
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5306 defsubr (&Sdraw_string);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5307 #endif
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5308 #endif /* FONT_DEBUG */
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5309 #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
5310 defsubr (&Sfont_info);
95421
3350c9ac1f37 (Ffont_info): Define only if HAVE_WINDOW_SYSTEM is
Kenichi Handa <handa@m17n.org>
parents: 95403
diff changeset
5311 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5312
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5313 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
5314 doc: /*
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5315 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
5316 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
5317 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
5318 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
5319
95142
f64ddc606a66 (syms-of-font) <font-encoding-alist>:
Juanma Barranquero <lekktu@gmail.com>
parents: 95126
diff changeset
5320 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
5321 \(REGEXP . ENCODING).
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5322
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5323 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
5324 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
5325 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
5326 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
5327
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5328 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
5329 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
5330 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
5331 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
5332 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
5333 Vfont_encoding_alist = Qnil;
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5334
95176
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5335 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
5336 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
5337 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
5338 [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
5339 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
5340 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
5341
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5342 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
5343 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
5344 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
5345 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
5346
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5347 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
5348 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
5349 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
5350 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
5351
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5352 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
5353 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
5354 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
5355 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
5356 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
5357
686d116f748d Checking of FONT_DEBUG is moved to font.h. All calls of
Kenichi Handa <handa@m17n.org>
parents: 95142
diff changeset
5358 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
5359 *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
5360 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
5361 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
5362 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
5363 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
5364
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5365 #ifdef HAVE_WINDOW_SYSTEM
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5366 #ifdef HAVE_FREETYPE
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5367 syms_of_ftfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5368 #ifdef HAVE_X_WINDOWS
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5369 syms_of_xfont ();
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5370 syms_of_ftxfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5371 #ifdef HAVE_XFT
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5372 syms_of_xftfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5373 #endif /* HAVE_XFT */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5374 #endif /* HAVE_X_WINDOWS */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5375 #else /* not HAVE_FREETYPE */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5376 #ifdef HAVE_X_WINDOWS
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5377 syms_of_xfont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5378 #endif /* HAVE_X_WINDOWS */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5379 #endif /* not HAVE_FREETYPE */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5380 #ifdef HAVE_BDFFONT
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5381 syms_of_bdffont ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5382 #endif /* HAVE_BDFFONT */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5383 #ifdef WINDOWSNT
94926
70a8f8c84456 Include <strings.h>.
Kenichi Handa <handa@m17n.org>
parents: 94745
diff changeset
5384 syms_of_w32font ();
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5385 #endif /* WINDOWSNT */
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5386 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5387 syms_of_nsfont ();
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96573
diff changeset
5388 #endif /* HAVE_NS */
95126
b7cee987e982 (Vfont_encoding_alist, find_font_encoding): Moved from
Kenichi Handa <handa@m17n.org>
parents: 95104
diff changeset
5389 #endif /* HAVE_WINDOW_SYSTEM */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5390 }
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
5391
103548
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5392 void
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5393 init_font ()
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5394 {
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5395 Vfont_log = egetenv ("EMACS_FONT_LOG") ? Qnil : Qt;
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5396 }
1a45bb782f72 (font_sort_entities, font_list_entities)
Kenichi Handa <handa@m17n.org>
parents: 103369
diff changeset
5397
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
5398 /* arch-tag: 74c9475d-5976-4c93-a327-942ae3072846
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
5399 (do not change this comment) */