Mercurial > emacs
annotate src/ftfont.c @ 110891:984146e401fc
Remove references to emacsver.texi.in in doc/ `make dist' rules.
* doc/emacs/Makefile.in (dist): Remove reference to emacsver.texi.in.
* doc/lispref/Makefile.in (dist): Remove reference to emacsver.texi.in.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 09 Oct 2010 13:22:11 -0700 |
parents | e1094870ea06 |
children | b8fde5ef9e14 |
rev | line source |
---|---|
90400 | 1 /* ftfont.c -- FreeType font driver. |
106815 | 2 Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
3 Copyright (C) 2006, 2007, 2008, 2009, 2010 | |
90400 | 4 National Institute of Advanced Industrial Science and Technology (AIST) |
5 Registration Number H13PRO009 | |
6 | |
7 This file is part of GNU Emacs. | |
8 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94931
diff
changeset
|
9 GNU Emacs is free software: you can redistribute it and/or modify |
90400 | 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:
94931
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:
94931
diff
changeset
|
12 (at your option) any later version. |
90400 | 13 |
14 GNU Emacs is distributed in the hope that it will be useful, | |
15 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 GNU General Public License for more details. | |
18 | |
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:
94931
diff
changeset
|
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
90400 | 21 |
22 #include <config.h> | |
23 #include <stdio.h> | |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103887
diff
changeset
|
24 #include <setjmp.h> |
90400 | 25 |
26 #include <fontconfig/fontconfig.h> | |
27 #include <fontconfig/fcfreetype.h> | |
28 | |
29 #include "lisp.h" | |
30 #include "dispextern.h" | |
31 #include "frame.h" | |
32 #include "blockinput.h" | |
33 #include "character.h" | |
34 #include "charset.h" | |
35 #include "coding.h" | |
97826 | 36 #include "composite.h" |
90400 | 37 #include "fontset.h" |
38 #include "font.h" | |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
39 #include "ftfont.h" |
90400 | 40 |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
41 /* Symbolic type of this font-driver. */ |
90400 | 42 Lisp_Object Qfreetype; |
43 | |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
44 /* Fontconfig's generic families and their aliases. */ |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
45 static Lisp_Object Qmonospace, Qsans_serif, Qserif, Qmono, Qsans, Qsans__serif; |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
46 |
95464
de4cb7ab40db
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
95433
diff
changeset
|
47 /* Flag to tell if FcInit is already called or not. */ |
90400 | 48 static int fc_initialized; |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
49 |
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
50 /* Handle to a FreeType library instance. */ |
90400 | 51 static FT_Library ft_library; |
52 | |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
53 /* Cache for FreeType fonts. */ |
90400 | 54 static Lisp_Object freetype_font_cache; |
55 | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
56 /* Cache for FT_Face and FcCharSet. */ |
95103 | 57 static Lisp_Object ft_face_cache; |
90400 | 58 |
59 /* The actual structure for FreeType font that can be casted to struct | |
60 font. */ | |
61 | |
62 struct ftfont_info | |
63 { | |
64 struct font font; | |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
65 #ifdef HAVE_LIBOTF |
101556
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
66 /* The following four members must be here in this order to be |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
67 compatible with struct xftfont_info (in xftfont.c). */ |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
68 int maybe_otf; /* Flag to tell if this may be OTF or not. */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
69 OTF *otf; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
70 #endif /* HAVE_LIBOTF */ |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
71 FT_Size ft_size; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
72 int index; |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
73 FT_Matrix matrix; |
90400 | 74 }; |
75 | |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
76 enum ftfont_cache_for |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
77 { |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
78 FTFONT_CACHE_FOR_FACE, |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
79 FTFONT_CACHE_FOR_CHARSET, |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
80 FTFONT_CACHE_FOR_ENTITY |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
81 }; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
82 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
83 static Lisp_Object ftfont_pattern_entity (FcPattern *, Lisp_Object); |
95103 | 84 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
85 static Lisp_Object ftfont_resolve_generic_family (Lisp_Object, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
86 FcPattern *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
87 static Lisp_Object ftfont_lookup_cache (Lisp_Object, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
88 enum ftfont_cache_for); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
89 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
90 static void ftfont_filter_properties (Lisp_Object font, Lisp_Object alist); |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
91 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
92 Lisp_Object ftfont_font_format (FcPattern *, Lisp_Object); |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
93 |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
94 #define SYMBOL_FcChar8(SYM) (FcChar8 *) SDATA (SYMBOL_NAME (SYM)) |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
95 |
95103 | 96 static struct |
90400 | 97 { |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
98 /* registry name */ |
109717
8949aad5e992
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109637
diff
changeset
|
99 const char *name; |
95103 | 100 /* characters to distinguish the charset from the others */ |
101 int uniquifier[6]; | |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
102 /* additional constraint by language */ |
109717
8949aad5e992
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109637
diff
changeset
|
103 const char *lang; |
95103 | 104 /* set on demand */ |
105 FcCharSet *fc_charset; | |
106 } fc_charset_table[] = | |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
107 { { "iso8859-1", { 0x00A0, 0x00A1, 0x00B4, 0x00BC, 0x00D0 } }, |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
108 { "iso8859-2", { 0x00A0, 0x010E }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
109 { "iso8859-3", { 0x00A0, 0x0108 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
110 { "iso8859-4", { 0x00A0, 0x00AF, 0x0128, 0x0156, 0x02C7 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
111 { "iso8859-5", { 0x00A0, 0x0401 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
112 { "iso8859-6", { 0x00A0, 0x060C }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
113 { "iso8859-7", { 0x00A0, 0x0384 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
114 { "iso8859-8", { 0x00A0, 0x05D0 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
115 { "iso8859-9", { 0x00A0, 0x00A1, 0x00BC, 0x011E }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
116 { "iso8859-10", { 0x00A0, 0x00D0, 0x0128, 0x2015 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
117 { "iso8859-11", { 0x00A0, 0x0E01 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
118 { "iso8859-13", { 0x00A0, 0x201C }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
119 { "iso8859-14", { 0x00A0, 0x0174 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
120 { "iso8859-15", { 0x00A0, 0x00A1, 0x00D0, 0x0152 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
121 { "iso8859-16", { 0x00A0, 0x0218}}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
122 { "gb2312.1980-0", { 0x4E13 }, "zh-cn"}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
123 { "big5-0", { 0xF6B1 }, "zh-tw" }, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
124 { "jisx0208.1983-0", { 0x4E55 }, "ja"}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
125 { "ksc5601.1985-0", { 0xAC00 }, "ko"}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
126 { "cns11643.1992-1", { 0xFE32 }, "zh-tw"}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
127 { "cns11643.1992-2", { 0x4E33, 0x7934 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
128 { "cns11643.1992-3", { 0x201A9 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
129 { "cns11643.1992-4", { 0x20057 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
130 { "cns11643.1992-5", { 0x20000 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
131 { "cns11643.1992-6", { 0x20003 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
132 { "cns11643.1992-7", { 0x20055 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
133 { "gbk-0", { 0x4E06 }, "zh-cn"}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
134 { "jisx0212.1990-0", { 0x4E44 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
135 { "jisx0213.2000-1", { 0xFA10 }, "ja"}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
136 { "jisx0213.2000-2", { 0xFA49 }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
137 { "jisx0213.2004-1", { 0x20B9F }}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
138 { "viscii1.1-1", { 0x1EA0, 0x1EAE, 0x1ED2 }, "vi"}, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
139 { "tis620.2529-1", { 0x0E01 }, "th"}, |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
140 { "windows-1251", { 0x0401, 0x0490 }, "ru"}, |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
141 { "koi8-r", { 0x0401, 0x2219 }, "ru"}, |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
142 { "mulelao-1", { 0x0E81 }, "lo"}, |
100308
611f0256259c
(fc_charset_table): Add "unicode-sip".
Kenichi Handa <handa@m17n.org>
parents:
100239
diff
changeset
|
143 { "unicode-sip", { 0x20000 }}, |
95103 | 144 { NULL } |
145 }; | |
90400 | 146 |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
147 /* Dirty hack for handing ADSTYLE property. |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
148 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
149 Fontconfig (actually the underlying FreeType) gives such ADSTYLE |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
150 font property of PCF/BDF fonts in FC_STYLE. And, "Bold", |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
151 "Oblique", "Italic", or any non-normal SWIDTH property names |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
152 (e.g. SemiCondensed) are appended. In addition, if there's no |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
153 ADSTYLE property nor non-normal WEIGHT/SLANT/SWIDTH properties, |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
154 "Regular" is used for FC_STYLE (see the function |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
155 pcf_interpret_style in src/pcf/pcfread.c of FreeType). |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
156 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
157 Unfortunately this behavior is not documented, so the following |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
158 code may fail if FreeType changes the behavior in the future. */ |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
159 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
160 static Lisp_Object |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
161 get_adstyle_property (FcPattern *p) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
162 { |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
163 char *str, *end; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
164 Lisp_Object adstyle; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
165 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
166 if (FcPatternGetString (p, FC_STYLE, 0, (FcChar8 **) &str) != FcResultMatch) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
167 return Qnil; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
168 for (end = str; *end && *end != ' '; end++); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
169 if (*end) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
170 { |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
171 char *p = alloca (end - str + 1); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
172 memcpy (p, str, end - str); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
173 p[end - str] = '\0'; |
102945
f623dc25d37e
(get_adstyle_property): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
102944
diff
changeset
|
174 end = p + (end - str); |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
175 str = p; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
176 } |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
177 if (xstrcasecmp (str, "Regular") == 0 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
178 || xstrcasecmp (str, "Bold") == 0 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
179 || xstrcasecmp (str, "Oblique") == 0 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
180 || xstrcasecmp (str, "Italic") == 0) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
181 return Qnil; |
103591
1e63d004a073
(get_adstyle_property): Call font_intern_prop with 1 as
Kenichi Handa <handa@m17n.org>
parents:
103556
diff
changeset
|
182 adstyle = font_intern_prop (str, end - str, 1); |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
183 if (font_style_to_value (FONT_WIDTH_INDEX, adstyle, 0) >= 0) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
184 return Qnil; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
185 return adstyle; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
186 } |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
187 |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
188 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
189 ftfont_pattern_entity (FcPattern *p, Lisp_Object extra) |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
190 { |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
191 Lisp_Object key, cache, entity; |
95103 | 192 char *file, *str; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
193 int index; |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
194 int numeric; |
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
195 double dbl; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
196 FcBool b; |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
197 |
95103 | 198 if (FcPatternGetString (p, FC_FILE, 0, (FcChar8 **) &file) != FcResultMatch) |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
199 return Qnil; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
200 if (FcPatternGetInteger (p, FC_INDEX, 0, &index) != FcResultMatch) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
201 return Qnil; |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
202 |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
203 key = Fcons (make_unibyte_string ((char *) file, strlen ((char *) file)), |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
204 make_number (index)); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
205 cache = ftfont_lookup_cache (key, FTFONT_CACHE_FOR_ENTITY); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
206 entity = XCAR (cache); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
207 if (! NILP (entity)) |
103003
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
208 { |
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
209 Lisp_Object val = font_make_entity (); |
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
210 int i; |
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
211 |
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
212 for (i = 0; i < FONT_OBJLIST_INDEX; i++) |
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
213 ASET (val, i, AREF (entity, i)); |
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
214 return val; |
bf88e5d2f4af
(ftfont_pattern_entity): Return a newly allocated
Kenichi Handa <handa@m17n.org>
parents:
102991
diff
changeset
|
215 } |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
216 entity = font_make_entity (); |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
217 XSETCAR (cache, entity); |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
218 |
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
219 ASET (entity, FONT_TYPE_INDEX, Qfreetype); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
220 ASET (entity, FONT_REGISTRY_INDEX, Qiso10646_1); |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
221 |
95103 | 222 if (FcPatternGetString (p, FC_FOUNDRY, 0, (FcChar8 **) &str) == FcResultMatch) |
95745
bea43f586395
(ftfont_pattern_entity): Adjusted for the change of font_intern_prop.
Kenichi Handa <handa@m17n.org>
parents:
95698
diff
changeset
|
223 ASET (entity, FONT_FOUNDRY_INDEX, font_intern_prop (str, strlen (str), 1)); |
95103 | 224 if (FcPatternGetString (p, FC_FAMILY, 0, (FcChar8 **) &str) == FcResultMatch) |
95745
bea43f586395
(ftfont_pattern_entity): Adjusted for the change of font_intern_prop.
Kenichi Handa <handa@m17n.org>
parents:
95698
diff
changeset
|
225 ASET (entity, FONT_FAMILY_INDEX, font_intern_prop (str, strlen (str), 1)); |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
226 if (FcPatternGetInteger (p, FC_WEIGHT, 0, &numeric) == FcResultMatch) |
90474
8627c9321afb
(ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents:
90464
diff
changeset
|
227 { |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
228 if (numeric >= FC_WEIGHT_REGULAR && numeric < FC_WEIGHT_MEDIUM) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
229 numeric = FC_WEIGHT_MEDIUM; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
230 FONT_SET_STYLE (entity, FONT_WEIGHT_INDEX, make_number (numeric)); |
90474
8627c9321afb
(ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents:
90464
diff
changeset
|
231 } |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
232 if (FcPatternGetInteger (p, FC_SLANT, 0, &numeric) == FcResultMatch) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
233 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
234 numeric += 100; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
235 FONT_SET_STYLE (entity, FONT_SLANT_INDEX, make_number (numeric)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
236 } |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
237 if (FcPatternGetInteger (p, FC_WIDTH, 0, &numeric) == FcResultMatch) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
238 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
239 FONT_SET_STYLE (entity, FONT_WIDTH_INDEX, make_number (numeric)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
240 } |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
241 if (FcPatternGetDouble (p, FC_PIXEL_SIZE, 0, &dbl) == FcResultMatch) |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
242 { |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
243 ASET (entity, FONT_SIZE_INDEX, make_number (dbl)); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
244 } |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
245 else |
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
246 ASET (entity, FONT_SIZE_INDEX, make_number (0)); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
247 if (FcPatternGetInteger (p, FC_SPACING, 0, &numeric) == FcResultMatch) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
248 ASET (entity, FONT_SPACING_INDEX, make_number (numeric)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
249 if (FcPatternGetDouble (p, FC_DPI, 0, &dbl) == FcResultMatch) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
250 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
251 int dpi = dbl; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
252 ASET (entity, FONT_DPI_INDEX, make_number (dpi)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
253 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
254 if (FcPatternGetBool (p, FC_SCALABLE, 0, &b) == FcResultMatch |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
255 && b == FcTrue) |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
256 { |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
257 ASET (entity, FONT_SIZE_INDEX, make_number (0)); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
258 ASET (entity, FONT_AVGWIDTH_INDEX, make_number (0)); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
259 } |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
260 else |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
261 { |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
262 /* As this font is not scalable, parhaps this is a BDF or PCF |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
263 font. */ |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
264 FT_Face ft_face; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
265 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
266 ASET (entity, FONT_ADSTYLE_INDEX, get_adstyle_property (p)); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
267 if ((ft_library || FT_Init_FreeType (&ft_library) == 0) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
268 && FT_New_Face (ft_library, file, index, &ft_face) == 0) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
269 { |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
270 BDF_PropertyRec rec; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
271 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
272 if (FT_Get_BDF_Property (ft_face, "AVERAGE_WIDTH", &rec) == 0 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
273 && rec.type == BDF_PROPERTY_TYPE_INTEGER) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
274 ASET (entity, FONT_AVGWIDTH_INDEX, make_number (rec.u.integer)); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
275 FT_Done_Face (ft_face); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
276 } |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
277 } |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
278 |
96076
bd3f48456ac7
(ftfont_pattern_entity): New arg extra. Caller changed.
Kenichi Handa <handa@m17n.org>
parents:
95805
diff
changeset
|
279 ASET (entity, FONT_EXTRA_INDEX, Fcopy_sequence (extra)); |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
280 font_put_extra (entity, QCfont_entity, key); |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
281 return entity; |
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
282 } |
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
283 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
284 |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
285 static Lisp_Object ftfont_generic_family_list; |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
286 |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
287 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
288 ftfont_resolve_generic_family (Lisp_Object family, FcPattern *pattern) |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
289 { |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
290 Lisp_Object slot; |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
291 FcPattern *match; |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
292 FcResult result; |
97826 | 293 FcLangSet *langset; |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
294 |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
295 family = Fintern (Fdowncase (SYMBOL_NAME (family)), Qnil); |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
296 if (EQ (family, Qmono)) |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
297 family = Qmonospace; |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
298 else if (EQ (family, Qsans) || EQ (family, Qsans__serif)) |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
299 family = Qsans_serif; |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
300 slot = assq_no_quit (family, ftfont_generic_family_list); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
301 if (! CONSP (slot)) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
302 return Qnil; |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
303 if (! EQ (XCDR (slot), Qt)) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
304 return XCDR (slot); |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
305 pattern = FcPatternDuplicate (pattern); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
306 if (! pattern) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
307 goto err; |
96592
0ef6933bf3bd
(ftfont_resolve_generic_family): Remove foundry from
Andreas Schwab <schwab@suse.de>
parents:
96568
diff
changeset
|
308 FcPatternDel (pattern, FC_FOUNDRY); |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
309 FcPatternDel (pattern, FC_FAMILY); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
310 FcPatternAddString (pattern, FC_FAMILY, SYMBOL_FcChar8 (family)); |
97826 | 311 if (FcPatternGetLangSet (pattern, FC_LANG, 0, &langset) != FcResultMatch) |
312 { | |
313 /* This is to avoid the effect of locale. */ | |
314 langset = FcLangSetCreate (); | |
315 FcLangSetAdd (langset, "en"); | |
316 FcPatternAddLangSet (pattern, FC_LANG, langset); | |
317 FcLangSetDestroy (langset); | |
318 } | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
319 FcConfigSubstitute (NULL, pattern, FcMatchPattern); |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
320 FcDefaultSubstitute (pattern); |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
321 match = FcFontMatch (NULL, pattern, &result); |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
322 if (match) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
323 { |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
324 FcChar8 *fam; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
325 |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
326 if (FcPatternGetString (match, FC_FAMILY, 0, &fam) == FcResultMatch) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
327 family = intern ((char *) fam); |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
328 } |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
329 else |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
330 family = Qnil; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
331 XSETCDR (slot, family); |
100161
f26bd5948e57
(ftfont_resolve_generic_family): Avoid using uninitialized var.
Chong Yidong <cyd@stupidchicken.com>
parents:
100159
diff
changeset
|
332 if (match) FcPatternDestroy (match); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
333 err: |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
334 if (pattern) FcPatternDestroy (pattern); |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
335 return family; |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
336 } |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
337 |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
338 struct ftfont_cache_data |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
339 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
340 FT_Face ft_face; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
341 FcCharSet *fc_charset; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
342 }; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
343 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
344 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
345 ftfont_lookup_cache (Lisp_Object key, enum ftfont_cache_for cache_for) |
95103 | 346 { |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
347 Lisp_Object cache, val, entity; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
348 struct ftfont_cache_data *cache_data; |
95103 | 349 |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
350 if (FONT_ENTITY_P (key)) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
351 { |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
352 entity = key; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
353 val = assq_no_quit (QCfont_entity, AREF (entity, FONT_EXTRA_INDEX)); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
354 xassert (CONSP (val)); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
355 key = XCDR (val); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
356 } |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
357 else |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
358 entity = Qnil; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
359 |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
360 if (NILP (ft_face_cache)) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
361 cache = Qnil; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
362 else |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
363 cache = Fgethash (key, ft_face_cache, Qnil); |
95103 | 364 if (NILP (cache)) |
365 { | |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
366 if (NILP (ft_face_cache)) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
367 { |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
368 Lisp_Object args[2]; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
369 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
370 args[0] = QCtest; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
371 args[1] = Qequal; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
372 ft_face_cache = Fmake_hash_table (2, args); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
373 } |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
374 cache_data = xmalloc (sizeof (struct ftfont_cache_data)); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
375 cache_data->ft_face = NULL; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
376 cache_data->fc_charset = NULL; |
95103 | 377 val = make_save_value (NULL, 0); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
378 XSAVE_VALUE (val)->integer = 0; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
379 XSAVE_VALUE (val)->pointer = cache_data; |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
380 cache = Fcons (Qnil, val); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
381 Fputhash (key, cache, ft_face_cache); |
95103 | 382 } |
383 else | |
384 { | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
385 val = XCDR (cache); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
386 cache_data = XSAVE_VALUE (val)->pointer; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
387 } |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
388 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
389 if (cache_for == FTFONT_CACHE_FOR_ENTITY) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
390 return cache; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
391 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
392 if (cache_for == FTFONT_CACHE_FOR_FACE |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
393 ? ! cache_data->ft_face : ! cache_data->fc_charset) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
394 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
395 char *filename = (char *) SDATA (XCAR (key)); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
396 int index = XINT (XCDR (key)); |
95103 | 397 |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
398 if (cache_for == FTFONT_CACHE_FOR_FACE) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
399 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
400 if (! ft_library |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
401 && FT_Init_FreeType (&ft_library) != 0) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
402 return Qnil; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
403 if (FT_New_Face (ft_library, filename, index, &cache_data->ft_face) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
404 != 0) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
405 return Qnil; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
406 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
407 else |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
408 { |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
409 FcPattern *pat = NULL; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
410 FcFontSet *fontset = NULL; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
411 FcObjectSet *objset = NULL; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
412 FcCharSet *charset = NULL; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
413 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
414 pat = FcPatternBuild (0, FC_FILE, FcTypeString, (FcChar8 *) filename, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
415 FC_INDEX, FcTypeInteger, index, NULL); |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
416 if (! pat) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
417 goto finish; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
418 objset = FcObjectSetBuild (FC_CHARSET, FC_STYLE, NULL); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
419 if (! objset) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
420 goto finish; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
421 fontset = FcFontList (NULL, pat, objset); |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
422 if (! fontset) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
423 goto finish; |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
424 if (fontset && fontset->nfont > 0 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
425 && (FcPatternGetCharSet (fontset->fonts[0], FC_CHARSET, 0, |
101284
4c2b48d0a379
(ftfont_lookup_cache): Check the return value of FcFontList.
Kenichi Handa <handa@m17n.org>
parents:
100951
diff
changeset
|
426 &charset) |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
427 == FcResultMatch)) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
428 cache_data->fc_charset = FcCharSetCopy (charset); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
429 else |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
430 cache_data->fc_charset = FcCharSetCreate (); |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
431 |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
432 finish: |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
433 if (fontset) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
434 FcFontSetDestroy (fontset); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
435 if (objset) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
436 FcObjectSetDestroy (objset); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
437 if (pat) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
438 FcPatternDestroy (pat); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
439 } |
95103 | 440 } |
441 return cache; | |
442 } | |
443 | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
444 FcCharSet * |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
445 ftfont_get_fc_charset (Lisp_Object entity) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
446 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
447 Lisp_Object val, cache; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
448 struct ftfont_cache_data *cache_data; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
449 |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
450 cache = ftfont_lookup_cache (entity, FTFONT_CACHE_FOR_CHARSET); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
451 val = XCDR (cache); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
452 cache_data = XSAVE_VALUE (val)->pointer; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
453 return cache_data->fc_charset; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
454 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
455 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
456 #ifdef HAVE_LIBOTF |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
457 static OTF * |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
458 ftfont_get_otf (struct ftfont_info *ftfont_info) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
459 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
460 OTF *otf; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
461 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
462 if (ftfont_info->otf) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
463 return ftfont_info->otf; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
464 if (! ftfont_info->maybe_otf) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
465 return NULL; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
466 otf = OTF_open_ft_face (ftfont_info->ft_size->face); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
467 if (! otf || OTF_get_table (otf, "head") < 0) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
468 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
469 if (otf) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
470 OTF_close (otf); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
471 ftfont_info->maybe_otf = 0; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
472 return NULL; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
473 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
474 ftfont_info->otf = otf; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
475 return otf; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
476 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
477 #endif /* HAVE_LIBOTF */ |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
478 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
479 static Lisp_Object ftfont_get_cache (FRAME_PTR); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
480 static Lisp_Object ftfont_list (Lisp_Object, Lisp_Object); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
481 static Lisp_Object ftfont_match (Lisp_Object, Lisp_Object); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
482 static Lisp_Object ftfont_list_family (Lisp_Object); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
483 static Lisp_Object ftfont_open (FRAME_PTR, Lisp_Object, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
484 static void ftfont_close (FRAME_PTR, struct font *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
485 static int ftfont_has_char (Lisp_Object, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
486 static unsigned ftfont_encode_char (struct font *, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
487 static int ftfont_text_extents (struct font *, unsigned *, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
488 struct font_metrics *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
489 static int ftfont_get_bitmap (struct font *, unsigned, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
490 struct font_bitmap *, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
491 static int ftfont_anchor_point (struct font *, unsigned, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
492 int *, int *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
493 static Lisp_Object ftfont_otf_capability (struct font *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
494 static Lisp_Object ftfont_shape (Lisp_Object); |
102773
b9b8c6b17d2d
Conditionalize prototyping and use of ftfont_variation_glyphs.
Chong Yidong <cyd@stupidchicken.com>
parents:
101943
diff
changeset
|
495 |
b9b8c6b17d2d
Conditionalize prototyping and use of ftfont_variation_glyphs.
Chong Yidong <cyd@stupidchicken.com>
parents:
101943
diff
changeset
|
496 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
497 static int ftfont_variation_glyphs (struct font *, int c, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
109081
diff
changeset
|
498 unsigned variations[256]); |
102773
b9b8c6b17d2d
Conditionalize prototyping and use of ftfont_variation_glyphs.
Chong Yidong <cyd@stupidchicken.com>
parents:
101943
diff
changeset
|
499 #endif /* HAVE_OTF_GET_VARIATION_GLYPHS */ |
90400 | 500 |
501 struct font_driver ftfont_driver = | |
502 { | |
90697
444b40002533
(ftfont_driver): Initialize ftfont_driver.type by 0.
Kenichi Handa <handa@m17n.org>
parents:
90680
diff
changeset
|
503 0, /* Qfreetype */ |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
504 0, /* case insensitive */ |
90400 | 505 ftfont_get_cache, |
506 ftfont_list, | |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
507 ftfont_match, |
90400 | 508 ftfont_list_family, |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
509 NULL, /* free_entity */ |
90400 | 510 ftfont_open, |
511 ftfont_close, | |
512 /* We can't draw a text without device dependent functions. */ | |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
513 NULL, /* prepare_face */ |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
514 NULL, /* done_face */ |
90400 | 515 ftfont_has_char, |
516 ftfont_encode_char, | |
517 ftfont_text_extents, | |
518 /* We can't draw a text without device dependent functions. */ | |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
519 NULL, /* draw */ |
90400 | 520 ftfont_get_bitmap, |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
521 NULL, /* get_bitmap */ |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
522 NULL, /* free_bitmap */ |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
523 NULL, /* get_outline */ |
90400 | 524 ftfont_anchor_point, |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
525 #ifdef HAVE_LIBOTF |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
526 ftfont_otf_capability, |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
527 #else /* not HAVE_LIBOTF */ |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
528 NULL, |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
529 #endif /* not HAVE_LIBOTF */ |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
530 NULL, /* otf_drive */ |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
531 NULL, /* start_for_frame */ |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
532 NULL, /* end_for_frame */ |
91308
9b6270bcd1a7
(ftfont_driver): Set ftfont_shape in ftfont_driver only
Kenichi Handa <handa@m17n.org>
parents:
91294
diff
changeset
|
533 #if defined (HAVE_M17N_FLT) && defined (HAVE_LIBOTF) |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
534 ftfont_shape, |
91308
9b6270bcd1a7
(ftfont_driver): Set ftfont_shape in ftfont_driver only
Kenichi Handa <handa@m17n.org>
parents:
91294
diff
changeset
|
535 #else /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */ |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
536 NULL, |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
537 #endif /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */ |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
538 NULL, /* check */ |
102773
b9b8c6b17d2d
Conditionalize prototyping and use of ftfont_variation_glyphs.
Chong Yidong <cyd@stupidchicken.com>
parents:
101943
diff
changeset
|
539 |
102791
9874a0083028
Fix previous change. Define ftfont_variation_glyphs
Kenichi Handa <handa@m17n.org>
parents:
102773
diff
changeset
|
540 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
541 ftfont_variation_glyphs, |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
542 #else |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
543 NULL, |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
544 #endif |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
545 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
546 ftfont_filter_properties, /* filter_properties */ |
90400 | 547 }; |
548 | |
549 static Lisp_Object | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
550 ftfont_get_cache (FRAME_PTR f) |
90400 | 551 { |
552 return freetype_font_cache; | |
553 } | |
554 | |
95103 | 555 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
556 ftfont_get_charset (Lisp_Object registry) |
95103 | 557 { |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
558 char *str = (char *) SDATA (SYMBOL_NAME (registry)); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
559 char *re = alloca (SBYTES (SYMBOL_NAME (registry)) * 2 + 1); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
560 Lisp_Object regexp; |
95103 | 561 int i, j; |
562 | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
563 for (i = j = 0; i < SBYTES (SYMBOL_NAME (registry)); i++, j++) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
564 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
565 if (str[i] == '.') |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
566 re[j++] = '\\'; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
567 else if (str[i] == '*') |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
568 re[j++] = '.'; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
569 re[j] = str[i]; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
570 if (re[j] == '?') |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
571 re[j] = '.'; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
572 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
573 re[j] = '\0'; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
574 regexp = make_unibyte_string (re, j); |
95103 | 575 for (i = 0; fc_charset_table[i].name; i++) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
576 if (fast_c_string_match_ignore_case (regexp, fc_charset_table[i].name) >= 0) |
95103 | 577 break; |
578 if (! fc_charset_table[i].name) | |
579 return -1; | |
580 if (! fc_charset_table[i].fc_charset) | |
581 { | |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
582 FcCharSet *charset = FcCharSetCreate (); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
583 int *uniquifier = fc_charset_table[i].uniquifier; |
95103 | 584 |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
585 if (! charset) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
586 return -1; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
587 for (j = 0; uniquifier[j]; j++) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
588 if (! FcCharSetAddChar (charset, uniquifier[j])) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
589 { |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
590 FcCharSetDestroy (charset); |
95103 | 591 return -1; |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
592 } |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
593 fc_charset_table[i].fc_charset = charset; |
95103 | 594 } |
595 return i; | |
596 } | |
597 | |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
598 struct OpenTypeSpec |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
599 { |
91214
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
600 Lisp_Object script; |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
601 unsigned int script_tag, langsys_tag; |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
602 int nfeatures[2]; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
603 unsigned int *features[2]; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
604 }; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
605 |
91191
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
606 #define OTF_SYM_TAG(SYM, TAG) \ |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
607 do { \ |
91191
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
608 unsigned char *p = SDATA (SYMBOL_NAME (SYM)); \ |
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
609 TAG = (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3]; \ |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
610 } while (0) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
611 |
91191
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
612 #define OTF_TAG_STR(TAG, P) \ |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
613 do { \ |
91191
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
614 (P)[0] = (char) (TAG >> 24); \ |
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
615 (P)[1] = (char) ((TAG >> 16) & 0xFF); \ |
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
616 (P)[2] = (char) ((TAG >> 8) & 0xFF); \ |
5bce041b93dc
(OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents:
91189
diff
changeset
|
617 (P)[3] = (char) (TAG & 0xFF); \ |
91214
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
618 (P)[4] = '\0'; \ |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
619 } while (0) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
620 |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
621 #define OTF_TAG_SYM(SYM, TAG) \ |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
622 do { \ |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
623 char str[5]; \ |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
624 \ |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
625 OTF_TAG_STR (TAG, str); \ |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
626 (SYM) = font_intern_prop (str, 4, 1); \ |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
627 } while (0) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
628 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
629 |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
630 static struct OpenTypeSpec * |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
631 ftfont_get_open_type_spec (Lisp_Object otf_spec) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
632 { |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
633 struct OpenTypeSpec *spec = malloc (sizeof (struct OpenTypeSpec)); |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
634 Lisp_Object val; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
635 int i, j, negative; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
636 |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
637 if (! spec) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
638 return NULL; |
91214
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
639 spec->script = XCAR (otf_spec); |
93588
917824e47986
(ftfont_get_open_type_spec): Check spec->script, not val.
Jason Rumney <jasonr@gnu.org>
parents:
92407
diff
changeset
|
640 if (! NILP (spec->script)) |
91214
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
641 { |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
642 OTF_SYM_TAG (spec->script, spec->script_tag); |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
643 val = assq_no_quit (spec->script, Votf_script_alist); |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
644 if (CONSP (val) && SYMBOLP (XCDR (val))) |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
645 spec->script = XCDR (val); |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
646 else |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
647 spec->script = Qnil; |
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
648 } |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
649 else |
91214
998b9da240f0
(struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents:
91191
diff
changeset
|
650 spec->script_tag = 0x44464C54; /* "DFLT" */ |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
651 otf_spec = XCDR (otf_spec); |
107237 | 652 spec->langsys_tag = 0; |
653 if (! NILP (otf_spec)) | |
654 { | |
655 val = XCAR (otf_spec); | |
656 if (! NILP (val)) | |
657 OTF_SYM_TAG (val, spec->langsys_tag); | |
658 otf_spec = XCDR (otf_spec); | |
659 } | |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
660 spec->nfeatures[0] = spec->nfeatures[1] = 0; |
107237 | 661 for (i = 0; i < 2 && ! NILP (otf_spec); i++, otf_spec = XCDR (otf_spec)) |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
662 { |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
663 Lisp_Object len; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
664 |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
665 val = XCAR (otf_spec); |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
666 if (NILP (val)) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
667 continue; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
668 len = Flength (val); |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
669 spec->features[i] = malloc (sizeof (int) * XINT (len)); |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
670 if (! spec->features[i]) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
671 { |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
672 if (i > 0 && spec->features[0]) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
673 free (spec->features[0]); |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
674 free (spec); |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
675 return NULL; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
676 } |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
677 for (j = 0, negative = 0; CONSP (val); val = XCDR (val)) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
678 { |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
679 if (NILP (XCAR (val))) |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
680 negative = 1; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
681 else |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
682 { |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
683 unsigned int tag; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
684 |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
685 OTF_SYM_TAG (XCAR (val), tag); |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
686 spec->features[i][j++] = negative ? tag & 0x80000000 : tag; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
687 } |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
688 } |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
689 spec->nfeatures[i] = j; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
690 } |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
691 return spec; |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
692 } |
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
693 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
694 static FcPattern * |
109717
8949aad5e992
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109637
diff
changeset
|
695 ftfont_spec_pattern (Lisp_Object spec, char *otlayout, struct OpenTypeSpec **otspec, const char **langname) |
90400 | 696 { |
95103 | 697 Lisp_Object tmp, extra; |
90400 | 698 FcPattern *pattern = NULL; |
699 FcCharSet *charset = NULL; | |
700 FcLangSet *langset = NULL; | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
701 int n; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
702 int dpi = -1; |
90500
60e0667ab709
(ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents:
90480
diff
changeset
|
703 int scalable = -1; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
704 Lisp_Object script = Qnil; |
95103 | 705 Lisp_Object registry; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
706 int fc_charset_idx; |
90400 | 707 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
708 if ((n = FONT_SLANT_NUMERIC (spec)) >= 0 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
709 && n < 100) |
90480
908d27653432
(ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents:
90474
diff
changeset
|
710 /* Fontconfig doesn't support reverse-italic/obligue. */ |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
711 return NULL; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
712 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
713 if (INTEGERP (AREF (spec, FONT_DPI_INDEX))) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
714 dpi = XINT (AREF (spec, FONT_DPI_INDEX)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
715 if (INTEGERP (AREF (spec, FONT_AVGWIDTH_INDEX)) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
716 && XINT (AREF (spec, FONT_AVGWIDTH_INDEX)) == 0) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
717 scalable = 1; |
90480
908d27653432
(ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents:
90474
diff
changeset
|
718 |
95103 | 719 registry = AREF (spec, FONT_REGISTRY_INDEX); |
720 if (NILP (registry) | |
95698
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
721 || EQ (registry, Qascii_0) |
95103 | 722 || EQ (registry, Qiso10646_1) |
100308
611f0256259c
(fc_charset_table): Add "unicode-sip".
Kenichi Handa <handa@m17n.org>
parents:
100239
diff
changeset
|
723 || EQ (registry, Qunicode_bmp)) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
724 fc_charset_idx = -1; |
95103 | 725 else |
90400 | 726 { |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
727 FcChar8 *lang; |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
728 |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
729 fc_charset_idx = ftfont_get_charset (registry); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
730 if (fc_charset_idx < 0) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
731 return NULL; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
732 charset = fc_charset_table[fc_charset_idx].fc_charset; |
103887
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
733 *langname = fc_charset_table[fc_charset_idx].lang; |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
734 lang = (FcChar8 *) *langname; |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
735 if (lang) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
736 { |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
737 langset = FcLangSetCreate (); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
738 if (! langset) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
739 goto err; |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
740 FcLangSetAdd (langset, lang); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
741 } |
90400 | 742 } |
743 | |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
744 otlayout[0] = '\0'; |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
745 for (extra = AREF (spec, FONT_EXTRA_INDEX); |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
746 CONSP (extra); extra = XCDR (extra)) |
90400 | 747 { |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
748 Lisp_Object key, val; |
90510
69dc5ab6d693
(ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents:
90500
diff
changeset
|
749 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
750 key = XCAR (XCAR (extra)), val = XCDR (XCAR (extra)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
751 if (EQ (key, QCdpi)) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
752 dpi = XINT (val); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
753 else if (EQ (key, QClang)) |
90400 | 754 { |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
755 if (! langset) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
756 langset = FcLangSetCreate (); |
90400 | 757 if (! langset) |
758 goto err; | |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
759 if (SYMBOLP (val)) |
90400 | 760 { |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
761 if (! FcLangSetAdd (langset, SYMBOL_FcChar8 (val))) |
90400 | 762 goto err; |
763 } | |
764 else | |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
765 for (; CONSP (val); val = XCDR (val)) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
766 if (SYMBOLP (XCAR (val)) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
767 && ! FcLangSetAdd (langset, SYMBOL_FcChar8 (XCAR (val)))) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
768 goto err; |
90400 | 769 } |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
770 else if (EQ (key, QCotf)) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
771 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
772 *otspec = ftfont_get_open_type_spec (val); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
773 if (! *otspec) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
774 return NULL; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
775 strcat (otlayout, "otlayout:"); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
776 OTF_TAG_STR ((*otspec)->script_tag, otlayout + 9); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
777 script = (*otspec)->script; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
778 } |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
779 else if (EQ (key, QCscript)) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
780 script = val; |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
781 else if (EQ (key, QCscalable)) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
782 scalable = ! NILP (val); |
90400 | 783 } |
784 | |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
785 if (! NILP (script) && ! charset) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
786 { |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
787 Lisp_Object chars = assq_no_quit (script, Vscript_representative_chars); |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
788 |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
789 if (CONSP (chars) && CONSP (CDR (chars))) |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
790 { |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
791 charset = FcCharSetCreate (); |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
792 if (! charset) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
793 goto err; |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
794 for (chars = XCDR (chars); CONSP (chars); chars = XCDR (chars)) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
795 if (CHARACTERP (XCAR (chars)) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
796 && ! FcCharSetAddChar (charset, XUINT (XCAR (chars)))) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
797 goto err; |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
798 } |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
799 } |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
800 |
96076
bd3f48456ac7
(ftfont_pattern_entity): New arg extra. Caller changed.
Kenichi Handa <handa@m17n.org>
parents:
95805
diff
changeset
|
801 pattern = FcPatternCreate (); |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
802 if (! pattern) |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
803 goto err; |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
804 tmp = AREF (spec, FONT_FOUNDRY_INDEX); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
805 if (! NILP (tmp) |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
806 && ! FcPatternAddString (pattern, FC_FOUNDRY, SYMBOL_FcChar8 (tmp))) |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
807 goto err; |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
808 tmp = AREF (spec, FONT_FAMILY_INDEX); |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
809 if (! NILP (tmp) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
810 && ! FcPatternAddString (pattern, FC_FAMILY, SYMBOL_FcChar8 (tmp))) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
811 goto err; |
90400 | 812 if (charset |
813 && ! FcPatternAddCharSet (pattern, FC_CHARSET, charset)) | |
814 goto err; | |
815 if (langset | |
816 && ! FcPatternAddLangSet (pattern, FC_LANG, langset)) | |
817 goto err; | |
90500
60e0667ab709
(ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents:
90480
diff
changeset
|
818 if (dpi >= 0 |
60e0667ab709
(ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents:
90480
diff
changeset
|
819 && ! FcPatternAddDouble (pattern, FC_DPI, dpi)) |
60e0667ab709
(ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents:
90480
diff
changeset
|
820 goto err; |
60e0667ab709
(ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents:
90480
diff
changeset
|
821 if (scalable >= 0 |
90522 | 822 && ! FcPatternAddBool (pattern, FC_SCALABLE, scalable ? FcTrue : FcFalse)) |
90500
60e0667ab709
(ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents:
90480
diff
changeset
|
823 goto err; |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
824 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
825 goto finish; |
90400 | 826 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
827 err: |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
828 /* We come here because of unexpected error in fontconfig API call |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
829 (usually insufficient memory). */ |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
830 if (pattern) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
831 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
832 FcPatternDestroy (pattern); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
833 pattern = NULL; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
834 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
835 if (*otspec) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
836 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
837 if ((*otspec)->nfeatures[0] > 0) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
838 free ((*otspec)->features[0]); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
839 if ((*otspec)->nfeatures[1] > 0) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
840 free ((*otspec)->features[1]); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
841 free (*otspec); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
842 *otspec = NULL; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
843 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
844 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
845 finish: |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
846 if (langset) FcLangSetDestroy (langset); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
847 if (charset && fc_charset_idx < 0) FcCharSetDestroy (charset); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
848 return pattern; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
849 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
850 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
851 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
852 ftfont_list (Lisp_Object frame, Lisp_Object spec) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
853 { |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
854 Lisp_Object val = Qnil, family, adstyle; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
855 int i; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
856 FcPattern *pattern; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
857 FcFontSet *fontset = NULL; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
858 FcObjectSet *objset = NULL; |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
859 FcCharSet *charset; |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
860 Lisp_Object chars = Qnil; |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
861 FcResult result; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
862 char otlayout[15]; /* For "otlayout:XXXX" */ |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
863 struct OpenTypeSpec *otspec = NULL; |
95358
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
864 int spacing = -1; |
109717
8949aad5e992
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109637
diff
changeset
|
865 const char *langname = NULL; |
95464
de4cb7ab40db
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
95433
diff
changeset
|
866 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
867 if (! fc_initialized) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
868 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
869 FcInit (); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
870 fc_initialized = 1; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
871 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
872 |
103887
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
873 pattern = ftfont_spec_pattern (spec, otlayout, &otspec, &langname); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
874 if (! pattern) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
875 return Qnil; |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
876 if (FcPatternGetCharSet (pattern, FC_CHARSET, 0, &charset) != FcResultMatch) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
877 { |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
878 val = assq_no_quit (QCscript, AREF (spec, FONT_EXTRA_INDEX)); |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
879 if (! NILP (val)) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
880 { |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
881 val = assq_no_quit (XCDR (val), Vscript_representative_chars); |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
882 if (CONSP (val) && VECTORP (XCDR (val))) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
883 chars = XCDR (val); |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
884 } |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
885 val = Qnil; |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
886 } |
95358
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
887 if (INTEGERP (AREF (spec, FONT_SPACING_INDEX))) |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
888 spacing = XINT (AREF (spec, FONT_SPACING_INDEX)); |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
889 family = AREF (spec, FONT_FAMILY_INDEX); |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
890 if (! NILP (family)) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
891 { |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
892 Lisp_Object resolved; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
893 |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
894 resolved = ftfont_resolve_generic_family (family, pattern); |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
895 if (! NILP (resolved)) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
896 { |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
897 FcPatternDel (pattern, FC_FAMILY); |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
898 if (! FcPatternAddString (pattern, FC_FAMILY, |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
899 SYMBOL_FcChar8 (resolved))) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
900 goto err; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
901 } |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
902 } |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
903 adstyle = AREF (spec, FONT_ADSTYLE_INDEX); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
904 if (! NILP (adstyle) && SBYTES (SYMBOL_NAME (adstyle)) == 0) |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
905 adstyle = Qnil; |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
906 objset = FcObjectSetBuild (FC_FOUNDRY, FC_FAMILY, FC_WEIGHT, FC_SLANT, |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
907 FC_WIDTH, FC_PIXEL_SIZE, FC_SPACING, FC_SCALABLE, |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
908 FC_STYLE, FC_FILE, FC_INDEX, |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
909 #ifdef FC_CAPABILITY |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
910 FC_CAPABILITY, |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
911 #endif /* FC_CAPABILITY */ |
96076
bd3f48456ac7
(ftfont_pattern_entity): New arg extra. Caller changed.
Kenichi Handa <handa@m17n.org>
parents:
95805
diff
changeset
|
912 #ifdef FC_FONTFORMAT |
bd3f48456ac7
(ftfont_pattern_entity): New arg extra. Caller changed.
Kenichi Handa <handa@m17n.org>
parents:
95805
diff
changeset
|
913 FC_FONTFORMAT, |
bd3f48456ac7
(ftfont_pattern_entity): New arg extra. Caller changed.
Kenichi Handa <handa@m17n.org>
parents:
95805
diff
changeset
|
914 #endif |
90680
254cfd053f9c
(ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents:
90676
diff
changeset
|
915 NULL); |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
916 if (! objset) |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
917 goto err; |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
918 if (! NILP (chars)) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
919 FcObjectSetAdd (objset, FC_CHARSET); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
920 |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
921 fontset = FcFontList (NULL, pattern, objset); |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
922 if (! fontset || fontset->nfont == 0) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
923 goto finish; |
95698
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
924 #if 0 |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
925 /* Need fix because this finds any fonts. */ |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
926 if (fontset->nfont == 0 && ! NILP (family)) |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
927 { |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
928 /* Try maching with configuration. For instance, the |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
929 configuration may specify "Nimbus Mono L" as an alias of |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
930 "Courier". */ |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
931 FcPattern *pat = FcPatternBuild (0, FC_FAMILY, FcTypeString, |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
932 SYMBOL_FcChar8 (family), NULL); |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
933 FcChar8 *fam; |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
934 |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
935 if (FcConfigSubstitute (NULL, pat, FcMatchPattern) == FcTrue) |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
936 { |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
937 for (i = 0; |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
938 FcPatternGetString (pat, FC_FAMILY, i, &fam) == FcResultMatch; |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
939 i++) |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
940 { |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
941 FcPatternDel (pattern, FC_FAMILY); |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
942 FcPatternAddString (pattern, FC_FAMILY, fam); |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
943 FcFontSetDestroy (fontset); |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
944 fontset = FcFontList (NULL, pattern, objset); |
101284
4c2b48d0a379
(ftfont_lookup_cache): Check the return value of FcFontList.
Kenichi Handa <handa@m17n.org>
parents:
100951
diff
changeset
|
945 if (fontset && fontset->nfont > 0) |
95698
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
946 break; |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
947 } |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
948 } |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
949 } |
d87a51f8851f
(ftfont_spec_pattern): Accept the registry `ascii-0'.
Kenichi Handa <handa@m17n.org>
parents:
95464
diff
changeset
|
950 #endif |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
951 for (i = 0; i < fontset->nfont; i++) |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
952 { |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
953 Lisp_Object entity; |
90474
8627c9321afb
(ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents:
90464
diff
changeset
|
954 |
95358
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
955 if (spacing >= 0) |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
956 { |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
957 int this; |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
958 |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
959 if ((FcPatternGetInteger (fontset->fonts[i], FC_SPACING, 0, &this) |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
960 == FcResultMatch) |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
961 && spacing != this) |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
962 continue; |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
963 } |
9c54d4f00cf6
(ftfont_spec_pattern): Don't set FC_SPACING to pattern.
Kenichi Handa <handa@m17n.org>
parents:
95229
diff
changeset
|
964 |
90516
43ea66432bf9
(ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
90514
diff
changeset
|
965 #ifdef FC_CAPABILITY |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
966 if (otlayout[0]) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
967 { |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
968 FcChar8 *this; |
90510
69dc5ab6d693
(ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents:
90500
diff
changeset
|
969 |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
970 if (FcPatternGetString (fontset->fonts[i], FC_CAPABILITY, 0, &this) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
971 != FcResultMatch |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
972 || ! strstr ((char *) this, otlayout)) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
973 continue; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
974 } |
90516
43ea66432bf9
(ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
90514
diff
changeset
|
975 #endif /* FC_CAPABILITY */ |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
976 #ifdef HAVE_LIBOTF |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
977 if (otspec) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
978 { |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
979 FcChar8 *file; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
980 OTF *otf; |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
981 |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
982 if (FcPatternGetString (fontset->fonts[i], FC_FILE, 0, &file) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
983 != FcResultMatch) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
984 continue; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
985 otf = OTF_open ((char *) file); |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
986 if (! otf) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
987 continue; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
988 if (OTF_check_features (otf, 1, |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
989 otspec->script_tag, otspec->langsys_tag, |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
990 otspec->features[0], |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
991 otspec->nfeatures[0]) != 1 |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
992 || OTF_check_features (otf, 0, |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
993 otspec->script_tag, otspec->langsys_tag, |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
994 otspec->features[1], |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
995 otspec->nfeatures[1]) != 1) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
996 continue; |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
997 } |
91187
96e18e1645a1
(struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents:
91162
diff
changeset
|
998 #endif /* HAVE_LIBOTF */ |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
999 if (VECTORP (chars)) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1000 { |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1001 int j; |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1002 |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1003 if (FcPatternGetCharSet (fontset->fonts[i], FC_CHARSET, 0, &charset) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1004 != FcResultMatch) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1005 continue; |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1006 for (j = 0; j < ASIZE (chars); j++) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1007 if (NATNUMP (AREF (chars, j)) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1008 && FcCharSetHasChar (charset, XFASTINT (AREF (chars, j)))) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1009 break; |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1010 if (j == ASIZE (chars)) |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1011 continue; |
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1012 } |
103887
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1013 if (! NILP (adstyle) || langname) |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
1014 { |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
1015 Lisp_Object this_adstyle = get_adstyle_property (fontset->fonts[i]); |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
1016 |
103887
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1017 if (! NILP (adstyle) |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1018 && (NILP (this_adstyle) |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1019 || xstrcasecmp (SDATA (SYMBOL_NAME (adstyle)), |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1020 SDATA (SYMBOL_NAME (this_adstyle))) != 0)) |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1021 continue; |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1022 if (langname |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1023 && ! NILP (this_adstyle) |
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1024 && xstrcasecmp (langname, SDATA (SYMBOL_NAME (this_adstyle)))) |
102944
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
1025 continue; |
44a517fa4d12
(Qja, Qko): New variables.
Kenichi Handa <handa@m17n.org>
parents:
102877
diff
changeset
|
1026 } |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1027 entity = ftfont_pattern_entity (fontset->fonts[i], |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1028 AREF (spec, FONT_EXTRA_INDEX)); |
95182
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
1029 if (! NILP (entity)) |
06ff64b07841
(ftfont_resolve_generic_family): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
95103
diff
changeset
|
1030 val = Fcons (entity, val); |
90400 | 1031 } |
97908
464a00cca3cf
(ftfont_spec_pattern): Don't create a charset of the
Kenichi Handa <handa@m17n.org>
parents:
97826
diff
changeset
|
1032 val = Fnreverse (val); |
90400 | 1033 goto finish; |
1034 | |
1035 err: | |
1036 /* We come here because of unexpected error in fontconfig API call | |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
1037 (usually insufficient memory). */ |
90400 | 1038 val = Qnil; |
1039 | |
1040 finish: | |
103546
941b1ddcbe2e
Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents:
103011
diff
changeset
|
1041 FONT_ADD_LOG ("ftfont-list", spec, val); |
90400 | 1042 if (objset) FcObjectSetDestroy (objset); |
1043 if (fontset) FcFontSetDestroy (fontset); | |
1044 if (pattern) FcPatternDestroy (pattern); | |
1045 return val; | |
1046 } | |
1047 | |
1048 static Lisp_Object | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1049 ftfont_match (Lisp_Object frame, Lisp_Object spec) |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1050 { |
100159
9dae5597651b
(ftfont_match): Initialize entity variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
99108
diff
changeset
|
1051 Lisp_Object entity = Qnil; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1052 FcPattern *pattern, *match = NULL; |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1053 FcResult result; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1054 char otlayout[15]; /* For "otlayout:XXXX" */ |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1055 struct OpenTypeSpec *otspec = NULL; |
109717
8949aad5e992
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109637
diff
changeset
|
1056 const char *langname = NULL; |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1057 |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1058 if (! fc_initialized) |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1059 { |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1060 FcInit (); |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1061 fc_initialized = 1; |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1062 } |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1063 |
103887
427b644c9e3b
(ftfont_spec_pattern): New arg langname. Caller
Kenichi Handa <handa@m17n.org>
parents:
103591
diff
changeset
|
1064 pattern = ftfont_spec_pattern (spec, otlayout, &otspec, &langname); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1065 if (! pattern) |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1066 return Qnil; |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1067 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1068 if (INTEGERP (AREF (spec, FONT_SIZE_INDEX))) |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1069 { |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1070 FcValue value; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1071 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1072 value.type = FcTypeDouble; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1073 value.u.d = XINT (AREF (spec, FONT_SIZE_INDEX)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1074 FcPatternAdd (pattern, FC_PIXEL_SIZE, value, FcFalse); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1075 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1076 if (FcConfigSubstitute (NULL, pattern, FcMatchPattern) == FcTrue) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1077 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1078 FcDefaultSubstitute (pattern); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1079 match = FcFontMatch (NULL, pattern, &result); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1080 if (match) |
92301
c10a8c811515
(ftfont_match): Explicitly set pixelsize in pattern.
Kenichi Handa <handa@m17n.org>
parents:
91870
diff
changeset
|
1081 { |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1082 entity = ftfont_pattern_entity (match, AREF (spec, FONT_EXTRA_INDEX)); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1083 FcPatternDestroy (match); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1084 if (! NILP (AREF (spec, FONT_FAMILY_INDEX)) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1085 && NILP (assq_no_quit (AREF (spec, FONT_FAMILY_INDEX), |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1086 ftfont_generic_family_list)) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1087 && NILP (Fstring_equal (AREF (spec, FONT_FAMILY_INDEX), |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1088 AREF (entity, FONT_FAMILY_INDEX)))) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1089 entity = Qnil; |
92301
c10a8c811515
(ftfont_match): Explicitly set pixelsize in pattern.
Kenichi Handa <handa@m17n.org>
parents:
91870
diff
changeset
|
1090 } |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1091 } |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1092 FcPatternDestroy (pattern); |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1093 |
103546
941b1ddcbe2e
Change font_add_log to FONT_ADD_LOG.
Kenichi Handa <handa@m17n.org>
parents:
103011
diff
changeset
|
1094 FONT_ADD_LOG ("ftfont-match", spec, entity); |
90565
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1095 return entity; |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1096 } |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1097 |
258e759bcffa
(ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents:
90555
diff
changeset
|
1098 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1099 ftfont_list_family (Lisp_Object frame) |
90400 | 1100 { |
100163
88dfb64d3e71
(ftfont_list_family): Initialize list var earlier.
Chong Yidong <cyd@stupidchicken.com>
parents:
100161
diff
changeset
|
1101 Lisp_Object list = Qnil; |
90400 | 1102 FcPattern *pattern = NULL; |
1103 FcFontSet *fontset = NULL; | |
1104 FcObjectSet *objset = NULL; | |
1105 int i; | |
1106 | |
1107 if (! fc_initialized) | |
1108 { | |
1109 FcInit (); | |
1110 fc_initialized = 1; | |
1111 } | |
1112 | |
1113 pattern = FcPatternCreate (); | |
1114 if (! pattern) | |
1115 goto finish; | |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
1116 objset = FcObjectSetBuild (FC_FAMILY, NULL); |
90400 | 1117 if (! objset) |
1118 goto finish; | |
1119 fontset = FcFontList (NULL, pattern, objset); | |
1120 if (! fontset) | |
1121 goto finish; | |
1122 | |
1123 for (i = 0; i < fontset->nfont; i++) | |
1124 { | |
1125 FcPattern *pat = fontset->fonts[i]; | |
1126 FcChar8 *str; | |
1127 | |
1128 if (FcPatternGetString (pat, FC_FAMILY, 0, &str) == FcResultMatch) | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1129 list = Fcons (intern ((char *) str), list); |
90400 | 1130 } |
1131 | |
1132 finish: | |
1133 if (objset) FcObjectSetDestroy (objset); | |
1134 if (fontset) FcFontSetDestroy (fontset); | |
1135 if (pattern) FcPatternDestroy (pattern); | |
1136 | |
1137 return list; | |
1138 } | |
1139 | |
1140 | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1141 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1142 ftfont_open (FRAME_PTR f, Lisp_Object entity, int pixel_size) |
90400 | 1143 { |
1144 struct ftfont_info *ftfont_info; | |
1145 struct font *font; | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1146 struct ftfont_cache_data *cache_data; |
90400 | 1147 FT_Face ft_face; |
1148 FT_Size ft_size; | |
1149 FT_UInt size; | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1150 Lisp_Object val, filename, index, cache, font_object; |
95103 | 1151 int scalable; |
90400 | 1152 int spacing; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1153 char name[256]; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1154 int i, len; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1155 int upEM; |
90400 | 1156 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1157 val = assq_no_quit (QCfont_entity, AREF (entity, FONT_EXTRA_INDEX)); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1158 if (! CONSP (val)) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1159 return Qnil; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1160 val = XCDR (val); |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1161 cache = ftfont_lookup_cache (entity, FTFONT_CACHE_FOR_FACE); |
95103 | 1162 if (NILP (cache)) |
1163 return Qnil; | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1164 filename = XCAR (val); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1165 index = XCDR (val); |
95103 | 1166 val = XCDR (cache); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1167 cache_data = XSAVE_VALUE (XCDR (cache))->pointer; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1168 ft_face = cache_data->ft_face; |
95103 | 1169 if (XSAVE_VALUE (val)->integer > 0) |
90400 | 1170 { |
95103 | 1171 /* FT_Face in this cache is already used by the different size. */ |
90400 | 1172 if (FT_New_Size (ft_face, &ft_size) != 0) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1173 return Qnil; |
90400 | 1174 if (FT_Activate_Size (ft_size) != 0) |
1175 { | |
1176 FT_Done_Size (ft_size); | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1177 return Qnil; |
90400 | 1178 } |
95103 | 1179 } |
1180 XSAVE_VALUE (val)->integer++; | |
90400 | 1181 size = XINT (AREF (entity, FONT_SIZE_INDEX)); |
1182 if (size == 0) | |
1183 size = pixel_size; | |
1184 if (FT_Set_Pixel_Sizes (ft_face, size, size) != 0) | |
1185 { | |
1186 if (XSAVE_VALUE (val)->integer == 0) | |
1187 FT_Done_Face (ft_face); | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1188 return Qnil; |
90400 | 1189 } |
1190 | |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1191 font_object = font_make_object (VECSIZE (struct ftfont_info), entity, size); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1192 ASET (font_object, FONT_TYPE_INDEX, Qfreetype); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1193 len = font_unparse_xlfd (entity, size, name, 256); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1194 if (len > 0) |
100552
d8bfaced209a
(ftfont_open): Genarate a multibyte string if given
Kenichi Handa <handa@m17n.org>
parents:
100308
diff
changeset
|
1195 ASET (font_object, FONT_NAME_INDEX, make_string (name, len)); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1196 len = font_unparse_fcname (entity, size, name, 256); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1197 if (len > 0) |
100552
d8bfaced209a
(ftfont_open): Genarate a multibyte string if given
Kenichi Handa <handa@m17n.org>
parents:
100308
diff
changeset
|
1198 ASET (font_object, FONT_FULLNAME_INDEX, make_string (name, len)); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1199 else |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1200 ASET (font_object, FONT_FULLNAME_INDEX, |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1201 AREF (font_object, FONT_NAME_INDEX)); |
95103 | 1202 ASET (font_object, FONT_FILE_INDEX, filename); |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
1203 ASET (font_object, FONT_FORMAT_INDEX, ftfont_font_format (NULL, filename)); |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1204 font = XFONT_OBJECT (font_object); |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1205 ftfont_info = (struct ftfont_info *) font; |
95103 | 1206 ftfont_info->ft_size = ft_face->size; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1207 ftfont_info->index = XINT (index); |
91162
2b263ef46651
(ftfont_open): Set members maybe_otf and otf of
Kenichi Handa <handa@m17n.org>
parents:
91137
diff
changeset
|
1208 #ifdef HAVE_LIBOTF |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1209 ftfont_info->maybe_otf = ft_face->face_flags & FT_FACE_FLAG_SFNT; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1210 ftfont_info->otf = NULL; |
91162
2b263ef46651
(ftfont_open): Set members maybe_otf and otf of
Kenichi Handa <handa@m17n.org>
parents:
91137
diff
changeset
|
1211 #endif /* HAVE_LIBOTF */ |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1212 /* This means that there's no need of transformation. */ |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1213 ftfont_info->matrix.xx = 0; |
90400 | 1214 font->pixel_size = size; |
1215 font->driver = &ftfont_driver; | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1216 font->encoding_charset = font->repertory_charset = -1; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1217 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1218 upEM = ft_face->units_per_EM; |
95103 | 1219 scalable = (INTEGERP (AREF (entity, FONT_AVGWIDTH_INDEX)) |
1220 && XINT (AREF (entity, FONT_AVGWIDTH_INDEX)) == 0); | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1221 if (scalable) |
90555
45553626fa76
(ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents:
90524
diff
changeset
|
1222 { |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1223 font->ascent = ft_face->ascender * size / upEM; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1224 font->descent = - ft_face->descender * size / upEM; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1225 font->height = ft_face->height * size / upEM; |
90555
45553626fa76
(ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents:
90524
diff
changeset
|
1226 } |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1227 else |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1228 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1229 font->ascent = ft_face->size->metrics.ascender >> 6; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1230 font->descent = - ft_face->size->metrics.descender >> 6; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1231 font->height = ft_face->size->metrics.height >> 6; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1232 } |
95103 | 1233 if (INTEGERP (AREF (entity, FONT_SPACING_INDEX))) |
1234 spacing = XINT (AREF (entity, FONT_SPACING_INDEX)); | |
1235 else | |
90555
45553626fa76
(ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents:
90524
diff
changeset
|
1236 spacing = FC_PROPORTIONAL; |
109081
bcae1f83a33e
Check FC_DUAL too. For such fonts, check width one by one.
Kenichi Handa <handa@etlken>
parents:
108493
diff
changeset
|
1237 if (spacing != FC_PROPORTIONAL && spacing != FC_DUAL) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1238 font->min_width = font->average_width = font->space_width |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1239 = (scalable ? ft_face->max_advance_width * size / upEM |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1240 : ft_face->size->metrics.max_advance >> 6); |
90400 | 1241 else |
1242 { | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1243 int n; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1244 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1245 font->min_width = font->average_width = font->space_width = 0; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1246 for (i = 32, n = 0; i < 127; i++) |
102859
c8428ec4532f
(ftfont_open): Fix checking of the return value of
Kenichi Handa <handa@m17n.org>
parents:
102791
diff
changeset
|
1247 if (FT_Load_Char (ft_face, i, FT_LOAD_DEFAULT) == 0) |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1248 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1249 int this_width = ft_face->glyph->metrics.horiAdvance >> 6; |
90400 | 1250 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1251 if (this_width > 0 |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1252 && (! font->min_width || font->min_width > this_width)) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1253 font->min_width = this_width; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1254 if (i == 32) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1255 font->space_width = this_width; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1256 font->average_width += this_width; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1257 n++; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1258 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1259 if (n > 0) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1260 font->average_width /= n; |
90400 | 1261 } |
1262 | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1263 font->baseline_offset = 0; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1264 font->relative_compose = 0; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1265 font->default_ascent = 0; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1266 font->vertical_centering = 0; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1267 if (scalable) |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1268 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1269 font->underline_position = -ft_face->underline_position * size / upEM; |
102859
c8428ec4532f
(ftfont_open): Fix checking of the return value of
Kenichi Handa <handa@m17n.org>
parents:
102791
diff
changeset
|
1270 font->underline_thickness = ft_face->underline_thickness * size / upEM; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1271 } |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1272 else |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1273 { |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1274 font->underline_position = -1; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1275 font->underline_thickness = 0; |
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1276 } |
90555
45553626fa76
(ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents:
90524
diff
changeset
|
1277 |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1278 return font_object; |
90400 | 1279 } |
1280 | |
1281 static void | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1282 ftfont_close (FRAME_PTR f, struct font *font) |
90400 | 1283 { |
1284 struct ftfont_info *ftfont_info = (struct ftfont_info *) font; | |
95103 | 1285 Lisp_Object val, cache; |
90400 | 1286 |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1287 val = Fcons (font->props[FONT_FILE_INDEX], make_number (ftfont_info->index)); |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1288 cache = ftfont_lookup_cache (val, FTFONT_CACHE_FOR_FACE); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1289 xassert (CONSP (cache)); |
95103 | 1290 val = XCDR (cache); |
90400 | 1291 (XSAVE_VALUE (val)->integer)--; |
1292 if (XSAVE_VALUE (val)->integer == 0) | |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1293 { |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1294 struct ftfont_cache_data *cache_data = XSAVE_VALUE (val)->pointer; |
95103 | 1295 |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1296 FT_Done_Face (cache_data->ft_face); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1297 #ifdef HAVE_LIBOTF |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1298 if (ftfont_info->otf) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1299 OTF_close (ftfont_info->otf); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1300 #endif |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1301 cache_data->ft_face = NULL; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1302 } |
90400 | 1303 else |
1304 FT_Done_Size (ftfont_info->ft_size); | |
1305 } | |
1306 | |
95464
de4cb7ab40db
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
95433
diff
changeset
|
1307 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1308 ftfont_has_char (Lisp_Object font, int c) |
90400 | 1309 { |
102991
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1310 struct charset *cs = NULL; |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1311 |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1312 if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qja) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1313 && charset_jisx0208 >= 0) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1314 cs = CHARSET_FROM_ID (charset_jisx0208); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1315 else if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qko) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1316 && charset_ksc5601 >= 0) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1317 cs = CHARSET_FROM_ID (charset_ksc5601); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1318 if (cs) |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1319 return (ENCODE_CHAR (cs, c) != CHARSET_INVALID_CODE (cs)); |
18e317a87f12
(Qja, Qko): Don't make them static.
Kenichi Handa <handa@m17n.org>
parents:
102945
diff
changeset
|
1320 |
101556
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1321 if (FONT_ENTITY_P (font)) |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1322 { |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1323 FcCharSet *charset = ftfont_get_fc_charset (font); |
90400 | 1324 |
101556
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1325 return (FcCharSetHasChar (charset, c) == FcTrue); |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1326 } |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1327 else |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1328 { |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1329 struct ftfont_info *ftfont_info; |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1330 |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1331 ftfont_info = (struct ftfont_info *) XFONT_OBJECT (font); |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1332 return (FT_Get_Char_Index (ftfont_info->ft_size->face, (FT_ULong) c) |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1333 != 0); |
7f8b5730cfa5
(ftfont_has_char): If the arg FONT is a font-object,
Kenichi Handa <handa@m17n.org>
parents:
101284
diff
changeset
|
1334 } |
90400 | 1335 } |
1336 | |
1337 static unsigned | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1338 ftfont_encode_char (struct font *font, int c) |
90400 | 1339 { |
1340 struct ftfont_info *ftfont_info = (struct ftfont_info *) font; | |
1341 FT_Face ft_face = ftfont_info->ft_size->face; | |
1342 FT_ULong charcode = c; | |
1343 FT_UInt code = FT_Get_Char_Index (ft_face, charcode); | |
1344 | |
91271
fed5211f4809
(ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents:
91249
diff
changeset
|
1345 return (code > 0 ? code : FONT_INVALID_CODE); |
90400 | 1346 } |
1347 | |
1348 static int | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1349 ftfont_text_extents (struct font *font, unsigned int *code, int nglyphs, struct font_metrics *metrics) |
90400 | 1350 { |
1351 struct ftfont_info *ftfont_info = (struct ftfont_info *) font; | |
1352 FT_Face ft_face = ftfont_info->ft_size->face; | |
1353 int width = 0; | |
96568
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1354 int i, first; |
90400 | 1355 |
1356 if (ftfont_info->ft_size != ft_face->size) | |
1357 FT_Activate_Size (ftfont_info->ft_size); | |
1358 if (metrics) | |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109126
diff
changeset
|
1359 memset (metrics, 0, sizeof (struct font_metrics)); |
96568
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1360 for (i = 0, first = 1; i < nglyphs; i++) |
90400 | 1361 { |
1362 if (FT_Load_Glyph (ft_face, code[i], FT_LOAD_DEFAULT) == 0) | |
1363 { | |
1364 FT_Glyph_Metrics *m = &ft_face->glyph->metrics; | |
1365 | |
96568
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1366 if (first) |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1367 { |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1368 if (metrics) |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1369 { |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1370 metrics->lbearing = m->horiBearingX >> 6; |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1371 metrics->rbearing = (m->horiBearingX + m->width) >> 6; |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1372 metrics->ascent = m->horiBearingY >> 6; |
102877
3f976a2deab1
(ftfont_text_extents): Fix calculation of metrics->descent.
Kenichi Handa <handa@m17n.org>
parents:
102859
diff
changeset
|
1373 metrics->descent = (m->height - m->horiBearingY) >> 6; |
96568
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1374 } |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1375 first = 0; |
ff2262b8b0f2
(ftfont_text_extents): Fix initial setting of metrics.
Kenichi Handa <handa@m17n.org>
parents:
96561
diff
changeset
|
1376 } |
90400 | 1377 if (metrics) |
1378 { | |
1379 if (metrics->lbearing > width + (m->horiBearingX >> 6)) | |
1380 metrics->lbearing = width + (m->horiBearingX >> 6); | |
1381 if (metrics->rbearing | |
1382 < width + ((m->horiBearingX + m->width) >> 6)) | |
1383 metrics->rbearing | |
1384 = width + ((m->horiBearingX + m->width) >> 6); | |
1385 if (metrics->ascent < (m->horiBearingY >> 6)) | |
1386 metrics->ascent = m->horiBearingY >> 6; | |
102877
3f976a2deab1
(ftfont_text_extents): Fix calculation of metrics->descent.
Kenichi Handa <handa@m17n.org>
parents:
102859
diff
changeset
|
1387 if (metrics->descent > ((m->height - m->horiBearingY) >> 6)) |
3f976a2deab1
(ftfont_text_extents): Fix calculation of metrics->descent.
Kenichi Handa <handa@m17n.org>
parents:
102859
diff
changeset
|
1388 metrics->descent = (m->height - m->horiBearingY) >> 6; |
90400 | 1389 } |
1390 width += m->horiAdvance >> 6; | |
1391 } | |
1392 else | |
1393 { | |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1394 width += font->space_width; |
90400 | 1395 } |
1396 } | |
1397 if (metrics) | |
1398 metrics->width = width; | |
1399 | |
1400 return width; | |
1401 } | |
1402 | |
1403 static int | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1404 ftfont_get_bitmap (struct font *font, unsigned int code, struct font_bitmap *bitmap, int bits_per_pixel) |
90400 | 1405 { |
1406 struct ftfont_info *ftfont_info = (struct ftfont_info *) font; | |
1407 FT_Face ft_face = ftfont_info->ft_size->face; | |
1408 FT_Int32 load_flags = FT_LOAD_RENDER; | |
1409 | |
1410 if (ftfont_info->ft_size != ft_face->size) | |
1411 FT_Activate_Size (ftfont_info->ft_size); | |
1412 if (bits_per_pixel == 1) | |
1413 { | |
1414 #ifdef FT_LOAD_TARGET_MONO | |
1415 load_flags |= FT_LOAD_TARGET_MONO; | |
1416 #else | |
1417 load_flags |= FT_LOAD_MONOCHROME; | |
1418 #endif | |
1419 } | |
1420 else if (bits_per_pixel != 8) | |
1421 /* We don't support such a rendering. */ | |
1422 return -1; | |
1423 | |
1424 if (FT_Load_Glyph (ft_face, code, load_flags) != 0) | |
1425 return -1; | |
91108
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1426 bitmap->bits_per_pixel |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1427 = (ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_MONO ? 1 |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1428 : ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_GRAY ? 8 |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1429 : ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_LCD ? 8 |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1430 : ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_LCD_V ? 8 |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1431 : -1); |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1432 if (bitmap->bits_per_pixel < 0) |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1433 /* We don't suport that kind of pixel mode. */ |
6da57551efb7
(ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents:
90963
diff
changeset
|
1434 return -1; |
90400 | 1435 bitmap->rows = ft_face->glyph->bitmap.rows; |
1436 bitmap->width = ft_face->glyph->bitmap.width; | |
1437 bitmap->pitch = ft_face->glyph->bitmap.pitch; | |
1438 bitmap->buffer = ft_face->glyph->bitmap.buffer; | |
1439 bitmap->left = ft_face->glyph->bitmap_left; | |
1440 bitmap->top = ft_face->glyph->bitmap_top; | |
1441 bitmap->advance = ft_face->glyph->metrics.horiAdvance >> 6; | |
1442 bitmap->extra = NULL; | |
1443 | |
1444 return 0; | |
1445 } | |
1446 | |
1447 static int | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1448 ftfont_anchor_point (struct font *font, unsigned int code, int index, int *x, int *y) |
90400 | 1449 { |
1450 struct ftfont_info *ftfont_info = (struct ftfont_info *) font; | |
1451 FT_Face ft_face = ftfont_info->ft_size->face; | |
1452 | |
1453 if (ftfont_info->ft_size != ft_face->size) | |
1454 FT_Activate_Size (ftfont_info->ft_size); | |
1455 if (FT_Load_Glyph (ft_face, code, FT_LOAD_DEFAULT) != 0) | |
1456 return -1; | |
1457 if (ft_face->glyph->format != FT_GLYPH_FORMAT_OUTLINE) | |
1458 return -1; | |
1459 if (index >= ft_face->glyph->outline.n_points) | |
1460 return -1; | |
1461 *x = ft_face->glyph->outline.points[index].x; | |
1462 *y = ft_face->glyph->outline.points[index].y; | |
1463 return 0; | |
1464 } | |
1465 | |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1466 #ifdef HAVE_LIBOTF |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1467 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1468 static Lisp_Object |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
1469 ftfont_otf_features (OTF_GSUB_GPOS *gsub_gpos) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1470 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1471 Lisp_Object scripts, langsyses, features, sym; |
98787
22ff4ff011f4
(ftfont_otf_features): Fix indexing
Kenichi Handa <handa@m17n.org>
parents:
98656
diff
changeset
|
1472 int i, j, k, l; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1473 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1474 for (scripts = Qnil, i = gsub_gpos->ScriptList.ScriptCount - 1; i >= 0; i--) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1475 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1476 OTF_Script *otf_script = gsub_gpos->ScriptList.Script + i; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1477 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1478 for (langsyses = Qnil, j = otf_script->LangSysCount - 1; j >= -1; j--) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1479 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1480 OTF_LangSys *otf_langsys; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1481 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1482 if (j >= 0) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1483 otf_langsys = otf_script->LangSys + j; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1484 else if (otf_script->DefaultLangSysOffset) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1485 otf_langsys = &otf_script->DefaultLangSys; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1486 else |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1487 break; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1488 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1489 for (features = Qnil, k = otf_langsys->FeatureCount - 1; k >= 0; k--) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1490 { |
98787
22ff4ff011f4
(ftfont_otf_features): Fix indexing
Kenichi Handa <handa@m17n.org>
parents:
98656
diff
changeset
|
1491 l = otf_langsys->FeatureIndex[k]; |
99108
411ea0d5dade
(ftfont_otf_features): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98787
diff
changeset
|
1492 if (l >= gsub_gpos->FeatureList.FeatureCount) |
98787
22ff4ff011f4
(ftfont_otf_features): Fix indexing
Kenichi Handa <handa@m17n.org>
parents:
98656
diff
changeset
|
1493 continue; |
22ff4ff011f4
(ftfont_otf_features): Fix indexing
Kenichi Handa <handa@m17n.org>
parents:
98656
diff
changeset
|
1494 OTF_TAG_SYM (sym, gsub_gpos->FeatureList.Feature[l].FeatureTag); |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1495 features = Fcons (sym, features); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1496 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1497 if (j >= 0) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1498 OTF_TAG_SYM (sym, otf_script->LangSysRecord[j].LangSysTag); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1499 else |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1500 sym = Qnil; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1501 langsyses = Fcons (Fcons (sym, features), langsyses); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1502 } |
101943
97c9e9322753
Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents:
101556
diff
changeset
|
1503 |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1504 OTF_TAG_SYM (sym, gsub_gpos->ScriptList.Script[i].ScriptTag); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1505 scripts = Fcons (Fcons (sym, langsyses), scripts); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1506 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1507 return scripts; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1508 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1509 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1510 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1511 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1512 static Lisp_Object |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
1513 ftfont_otf_capability (struct font *font) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1514 { |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1515 struct ftfont_info *ftfont_info = (struct ftfont_info *) font; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1516 OTF *otf = ftfont_get_otf (ftfont_info); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1517 Lisp_Object gsub_gpos; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1518 |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1519 if (! otf) |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1520 return Qnil; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1521 gsub_gpos = Fcons (Qnil, Qnil); |
99108
411ea0d5dade
(ftfont_otf_features): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98787
diff
changeset
|
1522 if (OTF_get_table (otf, "GSUB") == 0 |
411ea0d5dade
(ftfont_otf_features): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98787
diff
changeset
|
1523 && otf->gsub->FeatureList.FeatureCount > 0) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1524 XSETCAR (gsub_gpos, ftfont_otf_features (otf->gsub)); |
99108
411ea0d5dade
(ftfont_otf_features): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98787
diff
changeset
|
1525 if (OTF_get_table (otf, "GPOS") == 0 |
411ea0d5dade
(ftfont_otf_features): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98787
diff
changeset
|
1526 && otf->gpos->FeatureList.FeatureCount > 0) |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1527 XSETCDR (gsub_gpos, ftfont_otf_features (otf->gpos)); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1528 return gsub_gpos; |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1529 } |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
1530 |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1531 #ifdef HAVE_M17N_FLT |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1532 |
108493
e5f3704cf67a
ftfont.c: Fix incorrect parentheses of #if condition for definining M17N_FLT_USE_NEW_FEATURE.
Kenichi Handa <handa@etlken>
parents:
108347
diff
changeset
|
1533 #if (((LIBOTF_MAJOR_VERSION > 1) || (LIBOTF_RELEASE_NUMBER >= 10)) \ |
e5f3704cf67a
ftfont.c: Fix incorrect parentheses of #if condition for definining M17N_FLT_USE_NEW_FEATURE.
Kenichi Handa <handa@etlken>
parents:
108347
diff
changeset
|
1534 && ((M17NLIB_MAJOR_VERSION > 1) || (M17NLIB_MINOR_VERSION >= 6))) |
108347
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1535 /* We can use the new feature of libotf and m17n-flt to handle the |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1536 character encoding scheme introduced in Unicode 5.1 and 5.2 for |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1537 some Agian scripts. */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1538 #define M17N_FLT_USE_NEW_FEATURE |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1539 #endif |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1540 |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1541 struct MFLTFontFT |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1542 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1543 MFLTFont flt_font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1544 struct font *font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1545 FT_Face ft_face; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1546 OTF *otf; |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1547 FT_Matrix *matrix; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1548 }; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1549 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1550 static int |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
1551 ftfont_get_glyph_id (MFLTFont *font, MFLTGlyphString *gstring, |
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
1552 int from, int to) |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1553 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1554 struct MFLTFontFT *flt_font_ft = (struct MFLTFontFT *) font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1555 FT_Face ft_face = flt_font_ft->ft_face; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1556 MFLTGlyph *g; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1557 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1558 for (g = gstring->glyphs + from; from < to; g++, from++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1559 if (! g->encoded) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1560 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1561 FT_UInt code = FT_Get_Char_Index (ft_face, g->code); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1562 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1563 g->code = code > 0 ? code : FONT_INVALID_CODE; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1564 g->encoded = 1; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1565 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1566 return 0; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1567 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1568 |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1569 /* Operators for 26.6 fixed fractional pixel format */ |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1570 |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1571 #define FLOOR(x) ((x) & -64) |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1572 #define CEIL(x) (((x)+63) & -64) |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1573 #define ROUND(x) (((x)+32) & -64) |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1574 |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1575 static int |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
1576 ftfont_get_metrics (MFLTFont *font, MFLTGlyphString *gstring, |
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
1577 int from, int to) |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1578 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1579 struct MFLTFontFT *flt_font_ft = (struct MFLTFontFT *) font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1580 FT_Face ft_face = flt_font_ft->ft_face; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1581 MFLTGlyph *g; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1582 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1583 for (g = gstring->glyphs + from; from < to; g++, from++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1584 if (! g->measured) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1585 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1586 if (g->code != FONT_INVALID_CODE) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1587 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1588 FT_Glyph_Metrics *m; |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1589 int lbearing, rbearing, ascent, descent, xadv; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1590 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1591 if (FT_Load_Glyph (ft_face, g->code, FT_LOAD_DEFAULT) != 0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1592 abort (); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1593 m = &ft_face->glyph->metrics; |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1594 if (flt_font_ft->matrix) |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1595 { |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1596 FT_Vector v[4]; |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1597 int i; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1598 |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1599 v[0].x = v[1].x = m->horiBearingX; |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1600 v[2].x = v[3].x = m->horiBearingX + m->width; |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1601 v[0].y = v[2].y = m->horiBearingY; |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1602 v[1].y = v[3].y = m->horiBearingY - m->height; |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1603 for (i = 0; i < 4; i++) |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1604 FT_Vector_Transform (v + i, flt_font_ft->matrix); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1605 g->lbearing = v[0].x < v[1].x ? FLOOR (v[0].x) : FLOOR (v[1].x); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1606 g->rbearing = v[2].x > v[3].x ? CEIL (v[2].x) : CEIL (v[3].x); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1607 g->ascent = v[0].y > v[2].y ? CEIL (v[0].y) : CEIL (v[2].y); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1608 g->descent = v[1].y < v[3].y ? - FLOOR (v[1].y) : - FLOOR (v[3].y); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1609 } |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1610 else |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1611 { |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1612 g->lbearing = FLOOR (m->horiBearingX); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1613 g->rbearing = CEIL (m->horiBearingX + m->width); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1614 g->ascent = CEIL (m->horiBearingY); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1615 g->descent = - FLOOR (m->horiBearingY - m->height); |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1616 } |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
1617 g->xadv = ROUND (ft_face->glyph->advance.x); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1618 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1619 else |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1620 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1621 g->lbearing = 0; |
94931
37f386db63ed
(ftfont_pattern_entity): Argument FRAME removed. Make
Kenichi Handa <handa@m17n.org>
parents:
93588
diff
changeset
|
1622 g->rbearing = g->xadv = flt_font_ft->font->space_width << 6; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1623 g->ascent = flt_font_ft->font->ascent << 6; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1624 g->descent = flt_font_ft->font->descent << 6; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1625 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1626 g->yadv = 0; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1627 g->measured = 1; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1628 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1629 return 0; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1630 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1631 |
95464
de4cb7ab40db
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
95433
diff
changeset
|
1632 static int |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1633 ftfont_check_otf (MFLTFont *font, MFLTOtfSpec *spec) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1634 { |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1635 #define FEATURE_NONE(IDX) (! spec->features[IDX]) |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1636 |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1637 #define FEATURE_ANY(IDX) \ |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1638 (spec->features[IDX] \ |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1639 && spec->features[IDX][0] == 0xFFFFFFFF && spec->features[IDX][1] == 0) |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1640 |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1641 struct MFLTFontFT *flt_font_ft = (struct MFLTFontFT *) font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1642 OTF *otf = flt_font_ft->otf; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1643 OTF_Tag *tags; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1644 int i, n, negative; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1645 |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1646 if (FEATURE_ANY (0) && FEATURE_ANY (1)) |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1647 /* Return 1 iff any of GSUB or GPOS support the script (and language). */ |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1648 return (otf |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1649 && (OTF_check_features (otf, 0, spec->script, spec->langsys, |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1650 NULL, 0) > 0 |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1651 || OTF_check_features (otf, 1, spec->script, spec->langsys, |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1652 NULL, 0) > 0)); |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1653 |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1654 for (i = 0; i < 2; i++) |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1655 if (! FEATURE_ANY (i)) |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1656 { |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1657 if (FEATURE_NONE (i)) |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1658 { |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1659 if (otf |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1660 && OTF_check_features (otf, i == 0, spec->script, spec->langsys, |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1661 NULL, 0) > 0) |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1662 return 0; |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1663 continue; |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1664 } |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1665 if (spec->features[i][0] == 0xFFFFFFFF) |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1666 { |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1667 if (! otf |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1668 || OTF_check_features (otf, i == 0, spec->script, spec->langsys, |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1669 NULL, 0) <= 0) |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1670 continue; |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1671 } |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1672 else if (! otf) |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1673 return 0; |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1674 for (n = 1; spec->features[i][n]; n++); |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1675 tags = alloca (sizeof (OTF_Tag) * n); |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1676 for (n = 0, negative = 0; spec->features[i][n]; n++) |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1677 { |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1678 if (spec->features[i][n] == 0xFFFFFFFF) |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1679 negative = 1; |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1680 else if (negative) |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1681 tags[n - 1] = spec->features[i][n] | 0x80000000; |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1682 else |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1683 tags[n] = spec->features[i][n]; |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1684 } |
108347
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1685 #ifdef M17N_FLT_USE_NEW_FEATURE |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1686 if (OTF_check_features (otf, i == 0, spec->script, spec->langsys, |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1687 tags, n - negative) != 1) |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1688 return 0; |
108347
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1689 #else /* not M17N_FLT_USE_NEW_FEATURE */ |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1690 if (n - negative > 0 |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1691 && OTF_check_features (otf, i == 0, spec->script, spec->langsys, |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1692 tags, n - negative) != 1) |
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1693 return 0; |
108347
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1694 #endif /* not M17N_FLT_USE_NEW_FEATURE */ |
110376
cc92458a9829
ftfont.c (ftfont_check_otf): Fix the case of checking just existence of GSUB or GPOS.
Kenichi Handa <handa@m17n.org>
parents:
109717
diff
changeset
|
1695 } |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1696 return 1; |
110383
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1697 #undef FEATURE_NONE |
e1094870ea06
ftfont.c (ftfont_check_otf): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
110376
diff
changeset
|
1698 #undef FEATURE_ANY |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1699 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1700 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1701 #define DEVICE_DELTA(table, size) \ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1702 (((size) >= (table).StartSize && (size) <= (table).EndSize) \ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1703 ? (table).DeltaValue[(size) - (table).StartSize] << 6 \ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1704 : 0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1705 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1706 static void |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1707 adjust_anchor (FT_Face ft_face, OTF_Anchor *anchor, |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1708 unsigned code, int x_ppem, int y_ppem, int *x, int *y) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1709 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1710 if (anchor->AnchorFormat == 2) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1711 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1712 FT_Outline *outline; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1713 int ap = anchor->f.f1.AnchorPoint; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1714 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1715 FT_Load_Glyph (ft_face, (FT_UInt) code, FT_LOAD_MONOCHROME); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1716 outline = &ft_face->glyph->outline; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1717 if (ap < outline->n_points) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1718 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1719 *x = outline->points[ap].x << 6; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1720 *y = outline->points[ap].y << 6; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1721 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1722 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1723 else if (anchor->AnchorFormat == 3) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1724 { |
96840 | 1725 if (anchor->f.f2.XDeviceTable.offset |
1726 && anchor->f.f2.XDeviceTable.DeltaValue) | |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1727 *x += DEVICE_DELTA (anchor->f.f2.XDeviceTable, x_ppem); |
96840 | 1728 if (anchor->f.f2.YDeviceTable.offset |
1729 && anchor->f.f2.YDeviceTable.DeltaValue) | |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1730 *y += DEVICE_DELTA (anchor->f.f2.YDeviceTable, y_ppem); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1731 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1732 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1733 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1734 static OTF_GlyphString otf_gstring; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
1735 |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1736 static void |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1737 setup_otf_gstring (int size) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1738 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1739 if (otf_gstring.size == 0) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1740 { |
103556
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
1741 otf_gstring.glyphs = (OTF_Glyph *) xmalloc (sizeof (OTF_Glyph) * size); |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1742 otf_gstring.size = size; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1743 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1744 else if (otf_gstring.size < size) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1745 { |
103556
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
1746 otf_gstring.glyphs = xrealloc (otf_gstring.glyphs, |
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
1747 sizeof (OTF_Glyph) * size); |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1748 otf_gstring.size = size; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1749 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1750 otf_gstring.used = size; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1751 memset (otf_gstring.glyphs, 0, sizeof (OTF_Glyph) * size); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1752 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
1753 |
108347
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1754 #ifdef M17N_FLT_USE_NEW_FEATURE |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1755 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1756 /* Pack 32-bit OTF tag (0x7F7F7F7F) into 28-bit (0x0FFFFFFF). */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1757 #define PACK_OTF_TAG(TAG) \ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1758 ((((TAG) & 0x7F000000) >> 3) \ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1759 | (((TAG) & 0x7F0000) >> 2) \ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1760 | (((TAG) & 0x7F00) >> 1) \ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1761 | ((TAG) & 0x7F)) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1762 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1763 /* Assuming that FONT is an OpenType font, apply OpenType features |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1764 specified in SPEC on glyphs between FROM and TO of IN, and record |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1765 the lastly applied feature in each glyph of IN. If OUT is not |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1766 NULL, append the resulting glyphs to OUT while storing glyph |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1767 position adjustment information in ADJUSTMENT. */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1768 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1769 static int |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1770 ftfont_drive_otf (font, spec, in, from, to, out, adjustment) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1771 MFLTFont *font; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1772 MFLTOtfSpec *spec; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1773 MFLTGlyphString *in; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1774 int from, to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1775 MFLTGlyphString *out; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1776 MFLTGlyphAdjustment *adjustment; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1777 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1778 struct MFLTFontFT *flt_font_ft = (struct MFLTFontFT *) font; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1779 FT_Face ft_face = flt_font_ft->ft_face; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1780 OTF *otf = flt_font_ft->otf; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1781 int len = to - from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1782 int i, j, gidx; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1783 OTF_Glyph *otfg; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1784 char script[5], *langsys = NULL; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1785 char *gsub_features = NULL, *gpos_features = NULL; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1786 OTF_Feature *features; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1787 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1788 if (len == 0) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1789 return from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1790 OTF_tag_name (spec->script, script); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1791 if (spec->langsys) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1792 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1793 langsys = alloca (5); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1794 OTF_tag_name (spec->langsys, langsys); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1795 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1796 for (i = 0; i < 2; i++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1797 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1798 char *p; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1799 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1800 if (spec->features[i] && spec->features[i][1] != 0xFFFFFFFF) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1801 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1802 for (j = 0; spec->features[i][j]; j++); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1803 if (i == 0) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1804 p = gsub_features = alloca (6 * j); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1805 else |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1806 p = gpos_features = alloca (6 * j); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1807 for (j = 0; spec->features[i][j]; j++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1808 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1809 if (spec->features[i][j] == 0xFFFFFFFF) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1810 *p++ = '*', *p++ = ','; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1811 else |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1812 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1813 OTF_tag_name (spec->features[i][j], p); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1814 p[4] = ','; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1815 p += 5; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1816 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1817 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1818 *--p = '\0'; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1819 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1820 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1821 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1822 setup_otf_gstring (len); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1823 for (i = 0; i < len; i++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1824 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1825 otf_gstring.glyphs[i].c = in->glyphs[from + i].c; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1826 otf_gstring.glyphs[i].glyph_id = in->glyphs[from + i].code; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1827 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1828 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1829 OTF_drive_gdef (otf, &otf_gstring); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1830 gidx = out ? out->used : from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1831 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1832 if (gsub_features && out) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1833 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1834 if (OTF_drive_gsub_with_log (otf, &otf_gstring, script, langsys, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1835 gsub_features) < 0) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1836 goto simple_copy; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1837 if (out->allocated < out->used + otf_gstring.used) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1838 return -2; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1839 features = otf->gsub->FeatureList.Feature; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1840 for (i = 0, otfg = otf_gstring.glyphs; i < otf_gstring.used; ) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1841 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1842 MFLTGlyph *g; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1843 int min_from, max_to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1844 int j; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1845 int feature_idx = otfg->positioning_type >> 4; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1846 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1847 g = out->glyphs + out->used; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1848 *g = in->glyphs[from + otfg->f.index.from]; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1849 if (g->code != otfg->glyph_id) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1850 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1851 g->c = 0; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1852 g->code = otfg->glyph_id; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1853 g->measured = 0; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1854 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1855 out->used++; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1856 min_from = g->from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1857 max_to = g->to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1858 if (otfg->f.index.from < otfg->f.index.to) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1859 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1860 /* OTFG substitutes multiple glyphs in IN. */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1861 for (j = from + otfg->f.index.from + 1; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1862 j <= from + otfg->f.index.to; j++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1863 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1864 if (min_from > in->glyphs[j].from) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1865 min_from = in->glyphs[j].from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1866 if (max_to < in->glyphs[j].to) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1867 max_to = in->glyphs[j].to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1868 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1869 g->from = min_from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1870 g->to = max_to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1871 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1872 if (feature_idx) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1873 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1874 unsigned int tag = features[feature_idx - 1].FeatureTag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1875 tag = PACK_OTF_TAG (tag); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1876 g->internal = (g->internal & ~0x1FFFFFFF) | tag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1877 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1878 for (i++, otfg++; (i < otf_gstring.used |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1879 && otfg->f.index.from == otfg[-1].f.index.from); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1880 i++, otfg++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1881 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1882 g = out->glyphs + out->used; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1883 *g = in->glyphs[from + otfg->f.index.to]; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1884 if (g->code != otfg->glyph_id) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1885 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1886 g->c = 0; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1887 g->code = otfg->glyph_id; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1888 g->measured = 0; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1889 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1890 feature_idx = otfg->positioning_type >> 4; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1891 if (feature_idx) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1892 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1893 unsigned int tag = features[feature_idx - 1].FeatureTag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1894 tag = PACK_OTF_TAG (tag); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1895 g->internal = (g->internal & ~0x1FFFFFFF) | tag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1896 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1897 out->used++; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1898 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1899 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1900 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1901 else if (gsub_features) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1902 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1903 /* Just for checking which features will be applied. */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1904 if (OTF_drive_gsub_with_log (otf, &otf_gstring, script, langsys, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1905 gsub_features) < 0) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1906 goto simple_copy; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1907 features = otf->gsub->FeatureList.Feature; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1908 for (i = 0, otfg = otf_gstring.glyphs; i < otf_gstring.used; i++, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1909 otfg++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1910 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1911 int feature_idx = otfg->positioning_type >> 4; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1912 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1913 if (feature_idx) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1914 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1915 unsigned int tag = features[feature_idx - 1].FeatureTag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1916 tag = PACK_OTF_TAG (tag); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1917 for (j = otfg->f.index.from; j <= otfg->f.index.to; j++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1918 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1919 MFLTGlyph *g = in->glyphs + (from + j); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1920 g->internal = (g->internal & ~0x1FFFFFFF) | tag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1921 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1922 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1923 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1924 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1925 else if (out) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1926 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1927 if (out->allocated < out->used + len) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1928 return -2; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1929 for (i = 0; i < len; i++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1930 out->glyphs[out->used++] = in->glyphs[from + i]; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1931 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1932 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1933 if (gpos_features && out) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1934 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1935 MFLTGlyph *base = NULL, *mark = NULL, *g; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1936 int x_ppem, y_ppem, x_scale, y_scale; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1937 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1938 if (OTF_drive_gpos_with_log (otf, &otf_gstring, script, langsys, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1939 gpos_features) < 0) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1940 return to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1941 features = otf->gpos->FeatureList.Feature; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1942 x_ppem = ft_face->size->metrics.x_ppem; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1943 y_ppem = ft_face->size->metrics.y_ppem; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1944 x_scale = ft_face->size->metrics.x_scale; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1945 y_scale = ft_face->size->metrics.y_scale; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1946 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1947 for (i = 0, otfg = otf_gstring.glyphs, g = out->glyphs + gidx; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1948 i < otf_gstring.used; i++, otfg++, g++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1949 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1950 MFLTGlyph *prev; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1951 int feature_idx = otfg->positioning_type >> 4; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1952 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1953 if (feature_idx) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1954 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1955 unsigned int tag = features[feature_idx - 1].FeatureTag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1956 tag = PACK_OTF_TAG (tag); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1957 g->internal = (g->internal & ~0x1FFFFFFF) | tag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1958 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1959 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1960 if (! otfg->glyph_id) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1961 continue; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1962 switch (otfg->positioning_type & 0xF) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1963 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1964 case 0: |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1965 break; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1966 case 1: /* Single */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1967 case 2: /* Pair */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1968 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1969 int format = otfg->f.f1.format; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1970 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1971 if (format & OTF_XPlacement) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1972 adjustment[i].xoff |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1973 = otfg->f.f1.value->XPlacement * x_scale / 0x10000; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1974 if (format & OTF_XPlaDevice) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1975 adjustment[i].xoff |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1976 += DEVICE_DELTA (otfg->f.f1.value->XPlaDevice, x_ppem); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1977 if (format & OTF_YPlacement) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1978 adjustment[i].yoff |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1979 = - (otfg->f.f1.value->YPlacement * y_scale / 0x10000); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1980 if (format & OTF_YPlaDevice) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1981 adjustment[i].yoff |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1982 -= DEVICE_DELTA (otfg->f.f1.value->YPlaDevice, y_ppem); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1983 if (format & OTF_XAdvance) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1984 adjustment[i].xadv |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1985 += otfg->f.f1.value->XAdvance * x_scale / 0x10000; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1986 if (format & OTF_XAdvDevice) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1987 adjustment[i].xadv |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1988 += DEVICE_DELTA (otfg->f.f1.value->XAdvDevice, x_ppem); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1989 if (format & OTF_YAdvance) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1990 adjustment[i].yadv |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1991 += otfg->f.f1.value->YAdvance * y_scale / 0x10000; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1992 if (format & OTF_YAdvDevice) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1993 adjustment[i].yadv |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1994 += DEVICE_DELTA (otfg->f.f1.value->YAdvDevice, y_ppem); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1995 adjustment[i].set = 1; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1996 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1997 break; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1998 case 3: /* Cursive */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
1999 /* Not yet supported. */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2000 break; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2001 case 4: /* Mark-to-Base */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2002 case 5: /* Mark-to-Ligature */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2003 if (! base) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2004 break; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2005 prev = base; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2006 goto label_adjust_anchor; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2007 default: /* i.e. case 6 Mark-to-Mark */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2008 if (! mark) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2009 break; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2010 prev = mark; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2011 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2012 label_adjust_anchor: |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2013 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2014 int base_x, base_y, mark_x, mark_y; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2015 int this_from, this_to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2016 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2017 base_x = otfg->f.f4.base_anchor->XCoordinate * x_scale / 0x10000; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2018 base_y = otfg->f.f4.base_anchor->YCoordinate * y_scale / 0x10000; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2019 mark_x = otfg->f.f4.mark_anchor->XCoordinate * x_scale / 0x10000; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2020 mark_y = otfg->f.f4.mark_anchor->YCoordinate * y_scale / 0x10000; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2021 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2022 if (otfg->f.f4.base_anchor->AnchorFormat != 1) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2023 adjust_anchor (ft_face, otfg->f.f4.base_anchor, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2024 prev->code, x_ppem, y_ppem, &base_x, &base_y); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2025 if (otfg->f.f4.mark_anchor->AnchorFormat != 1) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2026 adjust_anchor (ft_face, otfg->f.f4.mark_anchor, g->code, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2027 x_ppem, y_ppem, &mark_x, &mark_y); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2028 adjustment[i].xoff = (base_x - mark_x); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2029 adjustment[i].yoff = - (base_y - mark_y); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2030 adjustment[i].back = (g - prev); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2031 adjustment[i].xadv = 0; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2032 adjustment[i].advance_is_absolute = 1; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2033 adjustment[i].set = 1; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2034 this_from = g->from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2035 this_to = g->to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2036 for (j = 0; prev + j < g; j++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2037 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2038 if (this_from > prev[j].from) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2039 this_from = prev[j].from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2040 if (this_to < prev[j].to) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2041 this_to = prev[j].to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2042 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2043 for (; prev <= g; prev++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2044 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2045 prev->from = this_from; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2046 prev->to = this_to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2047 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2048 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2049 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2050 if (otfg->GlyphClass == OTF_GlyphClass0) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2051 base = mark = g; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2052 else if (otfg->GlyphClass == OTF_GlyphClassMark) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2053 mark = g; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2054 else |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2055 base = g; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2056 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2057 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2058 else if (gpos_features) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2059 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2060 if (OTF_drive_gpos_with_log (otf, &otf_gstring, script, langsys, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2061 gpos_features) < 0) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2062 return to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2063 features = otf->gpos->FeatureList.Feature; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2064 for (i = 0, otfg = otf_gstring.glyphs; i < otf_gstring.used; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2065 i++, otfg++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2066 if (otfg->positioning_type & 0xF) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2067 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2068 int feature_idx = otfg->positioning_type >> 4; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2069 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2070 if (feature_idx) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2071 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2072 unsigned int tag = features[feature_idx - 1].FeatureTag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2073 tag = PACK_OTF_TAG (tag); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2074 for (j = otfg->f.index.from; j <= otfg->f.index.to; j++) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2075 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2076 MFLTGlyph *g = in->glyphs + (from + j); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2077 g->internal = (g->internal & ~0x1FFFFFFF) | tag; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2078 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2079 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2080 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2081 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2082 return to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2083 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2084 simple_copy: |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2085 if (! out) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2086 return to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2087 if (out->allocated < out->used + len) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2088 return -2; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2089 font->get_metrics (font, in, from, to); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2090 memcpy (out->glyphs + out->used, in->glyphs + from, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2091 sizeof (MFLTGlyph) * len); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2092 out->used += len; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2093 return to; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2094 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2095 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2096 static int |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2097 ftfont_try_otf (MFLTFont *font, MFLTOtfSpec *spec, |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2098 MFLTGlyphString *in, int from, int to) |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2099 { |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2100 return ftfont_drive_otf (font, spec, in, from, to, NULL, NULL); |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2101 } |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2102 |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2103 #else /* not M17N_FLT_USE_NEW_FEATURE */ |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2104 |
95464
de4cb7ab40db
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
95433
diff
changeset
|
2105 static int |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
2106 ftfont_drive_otf (MFLTFont *font, MFLTOtfSpec *spec, MFLTGlyphString *in, |
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
2107 int from, int to, |
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
2108 MFLTGlyphString *out, MFLTGlyphAdjustment *adjustment) |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2109 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2110 struct MFLTFontFT *flt_font_ft = (struct MFLTFontFT *) font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2111 FT_Face ft_face = flt_font_ft->ft_face; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2112 OTF *otf = flt_font_ft->otf; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2113 int len = to - from; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2114 int i, j, gidx; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2115 OTF_Glyph *otfg; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2116 char script[5], *langsys = NULL; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2117 char *gsub_features = NULL, *gpos_features = NULL; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2118 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2119 if (len == 0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2120 return from; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2121 OTF_tag_name (spec->script, script); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2122 if (spec->langsys) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2123 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2124 langsys = alloca (5); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2125 OTF_tag_name (spec->langsys, langsys); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2126 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2127 for (i = 0; i < 2; i++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2128 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2129 char *p; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2130 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2131 if (spec->features[i] && spec->features[i][1] != 0xFFFFFFFF) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2132 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2133 for (j = 0; spec->features[i][j]; j++); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2134 if (i == 0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2135 p = gsub_features = alloca (6 * j); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2136 else |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2137 p = gpos_features = alloca (6 * j); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2138 for (j = 0; spec->features[i][j]; j++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2139 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2140 if (spec->features[i][j] == 0xFFFFFFFF) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2141 *p++ = '*', *p++ = ','; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2142 else |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2143 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2144 OTF_tag_name (spec->features[i][j], p); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2145 p[4] = ','; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2146 p += 5; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2147 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2148 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2149 *--p = '\0'; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2150 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2151 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2152 |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2153 setup_otf_gstring (len); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2154 for (i = 0; i < len; i++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2155 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2156 otf_gstring.glyphs[i].c = in->glyphs[from + i].c; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2157 otf_gstring.glyphs[i].glyph_id = in->glyphs[from + i].code; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2158 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2159 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2160 OTF_drive_gdef (otf, &otf_gstring); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2161 gidx = out->used; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2162 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2163 if (gsub_features) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2164 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2165 if (OTF_drive_gsub (otf, &otf_gstring, script, langsys, gsub_features) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2166 < 0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2167 goto simple_copy; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2168 if (out->allocated < out->used + otf_gstring.used) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2169 return -2; |
91294
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2170 for (i = 0, otfg = otf_gstring.glyphs; i < otf_gstring.used; ) |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2171 { |
91294
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2172 MFLTGlyph *g; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2173 int min_from, max_to; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2174 int j; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2175 |
91294
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2176 g = out->glyphs + out->used; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2177 *g = in->glyphs[from + otfg->f.index.from]; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2178 if (g->code != otfg->glyph_id) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2179 { |
91294
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2180 g->c = 0; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2181 g->code = otfg->glyph_id; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2182 g->measured = 0; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2183 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2184 out->used++; |
91294
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2185 min_from = g->from; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2186 max_to = g->to; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2187 if (otfg->f.index.from < otfg->f.index.to) |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2188 { |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2189 /* OTFG substitutes multiple glyphs in IN. */ |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2190 for (j = from + otfg->f.index.from + 1; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2191 j <= from + otfg->f.index.to; j++) |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2192 { |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2193 if (min_from > in->glyphs[j].from) |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2194 min_from = in->glyphs[j].from; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2195 if (max_to < in->glyphs[j].to) |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2196 max_to = in->glyphs[j].to; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2197 } |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2198 g->from = min_from; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2199 g->to = max_to; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2200 } |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2201 for (i++, otfg++; (i < otf_gstring.used |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2202 && otfg->f.index.from == otfg[-1].f.index.from); |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2203 i++, otfg++) |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2204 { |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2205 g = out->glyphs + out->used; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2206 *g = in->glyphs[from + otfg->f.index.to]; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2207 if (g->code != otfg->glyph_id) |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2208 { |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2209 g->c = 0; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2210 g->code = otfg->glyph_id; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2211 g->measured = 0; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2212 } |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2213 out->used++; |
299c64a7a9fb
(ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents:
91271
diff
changeset
|
2214 } |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2215 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2216 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2217 else |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2218 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2219 if (out->allocated < out->used + len) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2220 return -2; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2221 for (i = 0; i < len; i++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2222 out->glyphs[out->used++] = in->glyphs[from + i]; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2223 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2224 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2225 if (gpos_features) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2226 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2227 MFLTGlyph *base = NULL, *mark = NULL, *g; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2228 int x_ppem, y_ppem, x_scale, y_scale; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2229 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2230 if (OTF_drive_gpos (otf, &otf_gstring, script, langsys, gpos_features) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2231 < 0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2232 return to; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2233 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2234 x_ppem = ft_face->size->metrics.x_ppem; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2235 y_ppem = ft_face->size->metrics.y_ppem; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2236 x_scale = ft_face->size->metrics.x_scale; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2237 y_scale = ft_face->size->metrics.y_scale; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2238 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2239 for (i = 0, otfg = otf_gstring.glyphs, g = out->glyphs + gidx; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2240 i < otf_gstring.used; i++, otfg++, g++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2241 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2242 MFLTGlyph *prev; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2243 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2244 if (! otfg->glyph_id) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2245 continue; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2246 switch (otfg->positioning_type) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2247 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2248 case 0: |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2249 break; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2250 case 1: /* Single */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2251 case 2: /* Pair */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2252 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2253 int format = otfg->f.f1.format; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2254 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2255 if (format & OTF_XPlacement) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2256 adjustment[i].xoff |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2257 = otfg->f.f1.value->XPlacement * x_scale / 0x10000; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2258 if (format & OTF_XPlaDevice) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2259 adjustment[i].xoff |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2260 += DEVICE_DELTA (otfg->f.f1.value->XPlaDevice, x_ppem); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2261 if (format & OTF_YPlacement) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2262 adjustment[i].yoff |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2263 = - (otfg->f.f1.value->YPlacement * y_scale / 0x10000); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2264 if (format & OTF_YPlaDevice) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2265 adjustment[i].yoff |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2266 -= DEVICE_DELTA (otfg->f.f1.value->YPlaDevice, y_ppem); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2267 if (format & OTF_XAdvance) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2268 adjustment[i].xadv |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2269 += otfg->f.f1.value->XAdvance * x_scale / 0x10000; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2270 if (format & OTF_XAdvDevice) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2271 adjustment[i].xadv |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2272 += DEVICE_DELTA (otfg->f.f1.value->XAdvDevice, x_ppem); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2273 if (format & OTF_YAdvance) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2274 adjustment[i].yadv |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2275 += otfg->f.f1.value->YAdvance * y_scale / 0x10000; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2276 if (format & OTF_YAdvDevice) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2277 adjustment[i].yadv |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2278 += DEVICE_DELTA (otfg->f.f1.value->YAdvDevice, y_ppem); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2279 adjustment[i].set = 1; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2280 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2281 break; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2282 case 3: /* Cursive */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2283 /* Not yet supported. */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2284 break; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2285 case 4: /* Mark-to-Base */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2286 case 5: /* Mark-to-Ligature */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2287 if (! base) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2288 break; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2289 prev = base; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2290 goto label_adjust_anchor; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2291 default: /* i.e. case 6 Mark-to-Mark */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2292 if (! mark) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2293 break; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2294 prev = mark; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2295 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2296 label_adjust_anchor: |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2297 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2298 int base_x, base_y, mark_x, mark_y; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2299 int this_from, this_to; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2300 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2301 base_x = otfg->f.f4.base_anchor->XCoordinate * x_scale / 0x10000; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2302 base_y = otfg->f.f4.base_anchor->YCoordinate * y_scale / 0x10000; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2303 mark_x = otfg->f.f4.mark_anchor->XCoordinate * x_scale / 0x10000; |
101943
97c9e9322753
Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents:
101556
diff
changeset
|
2304 mark_y = otfg->f.f4.mark_anchor->YCoordinate * y_scale / 0x10000; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2305 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2306 if (otfg->f.f4.base_anchor->AnchorFormat != 1) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2307 adjust_anchor (ft_face, otfg->f.f4.base_anchor, |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2308 prev->code, x_ppem, y_ppem, &base_x, &base_y); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2309 if (otfg->f.f4.mark_anchor->AnchorFormat != 1) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2310 adjust_anchor (ft_face, otfg->f.f4.mark_anchor, g->code, |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2311 x_ppem, y_ppem, &mark_x, &mark_y); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2312 adjustment[i].xoff = (base_x - mark_x); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2313 adjustment[i].yoff = - (base_y - mark_y); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2314 adjustment[i].back = (g - prev); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2315 adjustment[i].xadv = 0; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2316 adjustment[i].advance_is_absolute = 1; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2317 adjustment[i].set = 1; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2318 this_from = g->from; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2319 this_to = g->to; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2320 for (j = 0; prev + j < g; j++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2321 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2322 if (this_from > prev[j].from) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2323 this_from = prev[j].from; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2324 if (this_to < prev[j].to) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2325 this_to = prev[j].to; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2326 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2327 for (; prev <= g; prev++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2328 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2329 prev->from = this_from; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2330 prev->to = this_to; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2331 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2332 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2333 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2334 if (otfg->GlyphClass == OTF_GlyphClass0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2335 base = mark = g; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2336 else if (otfg->GlyphClass == OTF_GlyphClassMark) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2337 mark = g; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2338 else |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2339 base = g; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2340 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2341 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2342 return to; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2343 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2344 simple_copy: |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2345 if (out->allocated < out->used + len) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2346 return -2; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2347 font->get_metrics (font, in, from, to); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2348 memcpy (out->glyphs + out->used, in->glyphs + from, |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2349 sizeof (MFLTGlyph) * len); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2350 out->used += len; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2351 return to; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2352 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2353 |
108347
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2354 #endif /* not M17N_FLT_USE_NEW_FEATURE */ |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2355 |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2356 static MFLTGlyphString gstring; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2357 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2358 static int m17n_flt_initialized; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2359 |
98656
f2f525a089e1
* ftfont.c (ftfont_shape_by_flt): Make static.
Andreas Schwab <schwab@suse.de>
parents:
98205
diff
changeset
|
2360 static Lisp_Object |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
2361 ftfont_shape_by_flt (Lisp_Object lgstring, struct font *font, |
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
2362 FT_Face ft_face, OTF *otf, FT_Matrix *matrix) |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2363 { |
97826 | 2364 EMACS_UINT len = LGSTRING_GLYPH_LEN (lgstring); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2365 EMACS_UINT i; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2366 struct MFLTFontFT flt_font_ft; |
98103
809fdcf44233
(ftfont_shape_by_flt): Use "combining" FLT for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
97908
diff
changeset
|
2367 MFLT *flt = NULL; |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2368 int with_variation_selector = 0; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2369 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2370 if (! m17n_flt_initialized) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2371 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2372 M17N_INIT (); |
108347
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2373 #ifdef M17N_FLT_USE_NEW_FEATURE |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2374 mflt_enable_new_feature = 1; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2375 mflt_try_otf = ftfont_try_otf; |
39d09d6f8dbc
Use new features of libotf and m17n-lib if available.
Kenichi Handa <handa@etlken>
parents:
107237
diff
changeset
|
2376 #endif /* M17N_FLT_USE_NEW_FEATURE */ |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2377 m17n_flt_initialized = 1; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2378 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2379 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2380 for (i = 0; i < len; i++) |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2381 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2382 Lisp_Object g = LGSTRING_GLYPH (lgstring, i); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2383 int c; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2384 |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2385 if (NILP (g)) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2386 break; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2387 c = LGLYPH_CHAR (g); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2388 if (CHAR_VARIATION_SELECTOR_P (c)) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2389 with_variation_selector++; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2390 } |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2391 len = i; |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2392 if (with_variation_selector) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2393 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2394 setup_otf_gstring (len); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2395 for (i = 0; i < len; i++) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2396 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2397 Lisp_Object g = LGSTRING_GLYPH (lgstring, i); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2398 |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2399 otf_gstring.glyphs[i].c = LGLYPH_CHAR (g); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2400 otf_gstring.glyphs[i].f.index.from = LGLYPH_FROM (g); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2401 otf_gstring.glyphs[i].f.index.to = LGLYPH_TO (g); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2402 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2403 OTF_drive_cmap (otf, &otf_gstring); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2404 for (i = 0; i < otf_gstring.used; i++) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2405 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2406 OTF_Glyph *otfg = otf_gstring.glyphs + i; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2407 Lisp_Object g0 = LGSTRING_GLYPH (lgstring, otfg->f.index.from); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2408 Lisp_Object g1 = LGSTRING_GLYPH (lgstring, otfg->f.index.to); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2409 |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2410 LGLYPH_SET_CODE (g0, otfg->glyph_id); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2411 LGLYPH_SET_TO (g0, LGLYPH_TO (g1)); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2412 LGSTRING_SET_GLYPH (lgstring, i, g0); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2413 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2414 if (len > otf_gstring.used) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2415 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2416 len = otf_gstring.used; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2417 LGSTRING_SET_GLYPH (lgstring, len, Qnil); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2418 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2419 } |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2420 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2421 if (gstring.allocated == 0) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2422 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2423 gstring.allocated = len * 2; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2424 gstring.glyph_size = sizeof (MFLTGlyph); |
103556
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
2425 gstring.glyphs = xmalloc (sizeof (MFLTGlyph) * gstring.allocated); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2426 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2427 else if (gstring.allocated < len * 2) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2428 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2429 gstring.allocated = len * 2; |
103556
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
2430 gstring.glyphs = xrealloc (gstring.glyphs, |
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
2431 sizeof (MFLTGlyph) * gstring.allocated); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2432 } |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2433 memset (gstring.glyphs, 0, sizeof (MFLTGlyph) * len); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2434 for (i = 0; i < len; i++) |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2435 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2436 Lisp_Object g = LGSTRING_GLYPH (lgstring, i); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2437 |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2438 gstring.glyphs[i].c = LGLYPH_CHAR (g); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2439 if (with_variation_selector) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2440 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2441 gstring.glyphs[i].code = LGLYPH_CODE (g); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2442 gstring.glyphs[i].encoded = 1; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2443 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2444 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2445 |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2446 gstring.used = len; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2447 gstring.r2l = 0; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2448 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2449 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2450 Lisp_Object family = Ffont_get (LGSTRING_FONT (lgstring), QCfamily); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2451 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2452 if (NILP (family)) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2453 flt_font_ft.flt_font.family = Mnil; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2454 else |
95103 | 2455 flt_font_ft.flt_font.family |
98205
851824a732ae
(ftfont_shape_by_flt): Downcase family name.
Kenichi Handa <handa@m17n.org>
parents:
98103
diff
changeset
|
2456 = msymbol ((char *) SDATA (Fdowncase (SYMBOL_NAME (family)))); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2457 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2458 flt_font_ft.flt_font.x_ppem = ft_face->size->metrics.x_ppem; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2459 flt_font_ft.flt_font.y_ppem = ft_face->size->metrics.y_ppem; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2460 flt_font_ft.flt_font.get_glyph_id = ftfont_get_glyph_id; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2461 flt_font_ft.flt_font.get_metrics = ftfont_get_metrics; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2462 flt_font_ft.flt_font.check_otf = ftfont_check_otf; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2463 flt_font_ft.flt_font.drive_otf = ftfont_drive_otf; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2464 flt_font_ft.flt_font.internal = NULL; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2465 flt_font_ft.font = font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2466 flt_font_ft.ft_face = ft_face; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2467 flt_font_ft.otf = otf; |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
2468 flt_font_ft.matrix = matrix->xx != 0 ? matrix : 0; |
100239
7d98fd5b3867
(ftfont_shape_by_flt): Use "combining" flt if the
Kenichi Handa <handa@m17n.org>
parents:
100163
diff
changeset
|
2469 if (len > 1 |
7d98fd5b3867
(ftfont_shape_by_flt): Use "combining" flt if the
Kenichi Handa <handa@m17n.org>
parents:
100163
diff
changeset
|
2470 && gstring.glyphs[1].c >= 0x300 && gstring.glyphs[1].c <= 0x36F) |
98103
809fdcf44233
(ftfont_shape_by_flt): Use "combining" FLT for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
97908
diff
changeset
|
2471 /* A little bit ad hoc. Perhaps, shaper must get script and |
809fdcf44233
(ftfont_shape_by_flt): Use "combining" FLT for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
97908
diff
changeset
|
2472 language information, and select a proper flt for them |
809fdcf44233
(ftfont_shape_by_flt): Use "combining" FLT for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
97908
diff
changeset
|
2473 here. */ |
809fdcf44233
(ftfont_shape_by_flt): Use "combining" FLT for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
97908
diff
changeset
|
2474 flt = mflt_get (msymbol ("combining")); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2475 for (i = 0; i < 3; i++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2476 { |
98103
809fdcf44233
(ftfont_shape_by_flt): Use "combining" FLT for ASCII characters.
Kenichi Handa <handa@m17n.org>
parents:
97908
diff
changeset
|
2477 int result = mflt_run (&gstring, 0, len, &flt_font_ft.flt_font, flt); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2478 if (result != -2) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2479 break; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2480 gstring.allocated += gstring.allocated; |
103556
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
2481 gstring.glyphs = xrealloc (gstring.glyphs, |
246d16550b8d
Don't dereference NULL upon failed malloc and realloc.
Jim Meyering <jim@meyering.net>
parents:
103546
diff
changeset
|
2482 sizeof (MFLTGlyph) * gstring.allocated); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2483 } |
97826 | 2484 if (gstring.used > LGSTRING_GLYPH_LEN (lgstring)) |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2485 return Qnil; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2486 for (i = 0; i < gstring.used; i++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2487 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2488 MFLTGlyph *g = gstring.glyphs + i; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2489 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2490 g->from = LGLYPH_FROM (LGSTRING_GLYPH (lgstring, g->from)); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2491 g->to = LGLYPH_TO (LGSTRING_GLYPH (lgstring, g->to)); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2492 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2493 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2494 for (i = 0; i < gstring.used; i++) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2495 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2496 Lisp_Object lglyph = LGSTRING_GLYPH (lgstring, i); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2497 MFLTGlyph *g = gstring.glyphs + i; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2498 |
91271
fed5211f4809
(ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents:
91249
diff
changeset
|
2499 if (NILP (lglyph)) |
fed5211f4809
(ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents:
91249
diff
changeset
|
2500 { |
fed5211f4809
(ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents:
91249
diff
changeset
|
2501 lglyph = Fmake_vector (make_number (LGLYPH_SIZE), Qnil); |
fed5211f4809
(ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents:
91249
diff
changeset
|
2502 LGSTRING_SET_GLYPH (lgstring, i, lglyph); |
fed5211f4809
(ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents:
91249
diff
changeset
|
2503 } |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2504 LGLYPH_SET_FROM (lglyph, g->from); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2505 LGLYPH_SET_TO (lglyph, g->to); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2506 LGLYPH_SET_CHAR (lglyph, g->c); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2507 LGLYPH_SET_CODE (lglyph, g->code); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2508 LGLYPH_SET_WIDTH (lglyph, g->xadv >> 6); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2509 LGLYPH_SET_LBEARING (lglyph, g->lbearing >> 6); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2510 LGLYPH_SET_RBEARING (lglyph, g->rbearing >> 6); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2511 LGLYPH_SET_ASCENT (lglyph, g->ascent >> 6); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2512 LGLYPH_SET_DESCENT (lglyph, g->descent >> 6); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2513 if (g->adjusted) |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2514 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2515 Lisp_Object vec; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2516 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2517 vec = Fmake_vector (make_number (3), Qnil); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2518 ASET (vec, 0, make_number (g->xoff >> 6)); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2519 ASET (vec, 1, make_number (g->yoff >> 6)); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2520 ASET (vec, 2, make_number (g->xadv >> 6)); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2521 LGLYPH_SET_ADJUSTMENT (lglyph, vec); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2522 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2523 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2524 return make_number (i); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2525 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2526 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2527 Lisp_Object |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
2528 ftfont_shape (Lisp_Object lgstring) |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2529 { |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2530 struct font *font; |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2531 struct ftfont_info *ftfont_info; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
2532 OTF *otf; |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2533 |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2534 CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring), font); |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2535 ftfont_info = (struct ftfont_info *) font; |
96561
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
2536 otf = ftfont_get_otf (ftfont_info); |
d7b47f09b693
(struct ftfont_info): New member index, delete member
Kenichi Handa <handa@m17n.org>
parents:
96429
diff
changeset
|
2537 if (! otf) |
91870
5348213975e3
(ftfont_shape): Return Lispy number.
Kenichi Handa <handa@m17n.org>
parents:
91604
diff
changeset
|
2538 return make_number (0); |
106539
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
2539 return ftfont_shape_by_flt (lgstring, font, ftfont_info->ft_size->face, otf, |
e5416066efd1
(struct ftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents:
106085
diff
changeset
|
2540 &ftfont_info->matrix); |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2541 } |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2542 |
102791
9874a0083028
Fix previous change. Define ftfont_variation_glyphs
Kenichi Handa <handa@m17n.org>
parents:
102773
diff
changeset
|
2543 #endif /* HAVE_M17N_FLT */ |
9874a0083028
Fix previous change. Define ftfont_variation_glyphs
Kenichi Handa <handa@m17n.org>
parents:
102773
diff
changeset
|
2544 |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2545 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2546 |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2547 static int |
109364
89a16701cde1
Convert old-style definitions
Andreas Schwab <schwab@linux-m68k.org>
parents:
109165
diff
changeset
|
2548 ftfont_variation_glyphs (struct font *font, int c, unsigned variations[256]) |
100792
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2549 { |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2550 struct ftfont_info *ftfont_info = (struct ftfont_info *) font; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2551 OTF *otf = ftfont_get_otf (ftfont_info); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2552 |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2553 if (! otf) |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2554 return 0; |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2555 return OTF_get_variation_glyphs (otf, c, variations); |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2556 } |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2557 |
e829a2083df5
(ftfont_driver): Set the member get_variation_glyphs to
Kenichi Handa <handa@m17n.org>
parents:
100552
diff
changeset
|
2558 #endif /* HAVE_OTF_GET_VARIATION_GLYPHS */ |
91137
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2559 #endif /* HAVE_LIBOTF */ |
00323e98bffb
Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents:
91108
diff
changeset
|
2560 |
90676
c43c3837f597
(ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents:
90623
diff
changeset
|
2561 Lisp_Object |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2562 ftfont_font_format (FcPattern *pattern, Lisp_Object filename) |
90676
c43c3837f597
(ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents:
90623
diff
changeset
|
2563 { |
90680
254cfd053f9c
(ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents:
90676
diff
changeset
|
2564 FcChar8 *str; |
90676
c43c3837f597
(ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents:
90623
diff
changeset
|
2565 |
90680
254cfd053f9c
(ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents:
90676
diff
changeset
|
2566 #ifdef FC_FONTFORMAT |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2567 if (pattern) |
95433
3ffecc48d809
(ftfont_font_format): Don't use strcasestr.
Kenichi Handa <handa@m17n.org>
parents:
95358
diff
changeset
|
2568 { |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2569 if (FcPatternGetString (pattern, FC_FONTFORMAT, 0, &str) != FcResultMatch) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2570 return Qnil; |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2571 if (strcmp ((char *) str, "TrueType") == 0) |
95433
3ffecc48d809
(ftfont_font_format): Don't use strcasestr.
Kenichi Handa <handa@m17n.org>
parents:
95358
diff
changeset
|
2572 return intern ("truetype"); |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2573 if (strcmp ((char *) str, "Type 1") == 0) |
95433
3ffecc48d809
(ftfont_font_format): Don't use strcasestr.
Kenichi Handa <handa@m17n.org>
parents:
95358
diff
changeset
|
2574 return intern ("type1"); |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2575 if (strcmp ((char *) str, "PCF") == 0) |
95433
3ffecc48d809
(ftfont_font_format): Don't use strcasestr.
Kenichi Handa <handa@m17n.org>
parents:
95358
diff
changeset
|
2576 return intern ("pcf"); |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2577 if (strcmp ((char *) str, "BDF") == 0) |
95433
3ffecc48d809
(ftfont_font_format): Don't use strcasestr.
Kenichi Handa <handa@m17n.org>
parents:
95358
diff
changeset
|
2578 return intern ("bdf"); |
3ffecc48d809
(ftfont_font_format): Don't use strcasestr.
Kenichi Handa <handa@m17n.org>
parents:
95358
diff
changeset
|
2579 } |
96429
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2580 #endif /* FC_FONTFORMAT */ |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2581 if (STRINGP (filename)) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2582 { |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2583 int len = SBYTES (filename); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2584 |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2585 if (len >= 4) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2586 { |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2587 str = (FcChar8 *) (SDATA (filename) + len - 4); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2588 if (xstrcasecmp ((char *) str, ".ttf") == 0) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2589 return intern ("truetype"); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2590 if (xstrcasecmp ((char *) str, ".pfb") == 0) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2591 return intern ("type1"); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2592 if (xstrcasecmp ((char *) str, ".pcf") == 0) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2593 return intern ("pcf"); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2594 if (xstrcasecmp ((char *) str, ".bdf") == 0) |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2595 return intern ("bdf"); |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2596 } |
5ee216cdf0e3
(fc_charset_table): New member lang.
Kenichi Handa <handa@m17n.org>
parents:
96076
diff
changeset
|
2597 } |
90676
c43c3837f597
(ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents:
90623
diff
changeset
|
2598 return intern ("unknown"); |
c43c3837f597
(ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents:
90623
diff
changeset
|
2599 } |
c43c3837f597
(ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents:
90623
diff
changeset
|
2600 |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2601 static const char *ftfont_booleans [] = { |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2602 ":antialias", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2603 ":hinting", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2604 ":verticallayout", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2605 ":autohint", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2606 ":globaladvance", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2607 ":outline", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2608 ":scalable", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2609 ":minspace", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2610 ":embolden", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2611 NULL, |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2612 }; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2613 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2614 static const char *ftfont_non_booleans [] = { |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2615 ":family", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2616 ":familylang", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2617 ":style", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2618 ":stylelang", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2619 ":fullname", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2620 ":fullnamelang", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2621 ":slant", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2622 ":weight", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2623 ":size", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2624 ":width", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2625 ":aspect", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2626 ":pixelsize", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2627 ":spacing", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2628 ":foundry", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2629 ":hintstyle", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2630 ":file", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2631 ":index", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2632 ":ftface", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2633 ":rasterizer", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2634 ":scale", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2635 ":dpi", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2636 ":rgba", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2637 ":lcdfilter", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2638 ":charset", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2639 ":lang", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2640 ":fontversion", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2641 ":capability", |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2642 NULL, |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2643 }; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2644 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2645 static void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
2646 ftfont_filter_properties (Lisp_Object font, Lisp_Object alist) |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2647 { |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2648 Lisp_Object it; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2649 int i; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2650 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2651 /* Set boolean values to Qt or Qnil */ |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2652 for (i = 0; ftfont_booleans[i] != NULL; ++i) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2653 for (it = alist; ! NILP (it); it = XCDR (it)) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2654 { |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2655 Lisp_Object key = XCAR (XCAR (it)); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2656 Lisp_Object val = XCDR (XCAR (it)); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2657 char *keystr = SDATA (SYMBOL_NAME (key)); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2658 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2659 if (strcmp (ftfont_booleans[i], keystr) == 0) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2660 { |
109717
8949aad5e992
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109637
diff
changeset
|
2661 const char *str = SYMBOLP (val) ? SDATA (SYMBOL_NAME (val)) : NULL; |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2662 if (INTEGERP (val)) str = XINT (val) != 0 ? "true" : "false"; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2663 if (str == NULL) str = "true"; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2664 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2665 val = Qt; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2666 if (strcmp ("false", str) == 0 || strcmp ("False", str) == 0 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2667 || strcmp ("FALSE", str) == 0 || strcmp ("FcFalse", str) == 0 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2668 || strcmp ("off", str) == 0 || strcmp ("OFF", str) == 0 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2669 || strcmp ("Off", str) == 0) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2670 val = Qnil; |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2671 Ffont_put (font, key, val); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2672 } |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2673 } |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2674 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2675 for (i = 0; ftfont_non_booleans[i] != NULL; ++i) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2676 for (it = alist; ! NILP (it); it = XCDR (it)) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2677 { |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2678 Lisp_Object key = XCAR (XCAR (it)); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2679 Lisp_Object val = XCDR (XCAR (it)); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2680 char *keystr = SDATA (SYMBOL_NAME (key)); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2681 if (strcmp (ftfont_non_booleans[i], keystr) == 0) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2682 Ffont_put (font, key, val); |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2683 } |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2684 } |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2685 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105669
diff
changeset
|
2686 |
90400 | 2687 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
2688 syms_of_ftfont (void) |
90400 | 2689 { |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2690 DEFSYM (Qfreetype, "freetype"); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2691 DEFSYM (Qmonospace, "monospace"); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2692 DEFSYM (Qsans_serif, "sans-serif"); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2693 DEFSYM (Qserif, "serif"); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2694 DEFSYM (Qmono, "mono"); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2695 DEFSYM (Qsans, "sans"); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2696 DEFSYM (Qsans__serif, "sans serif"); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2697 |
90400 | 2698 staticpro (&freetype_font_cache); |
90441
d63258b13d84
(Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents:
90427
diff
changeset
|
2699 freetype_font_cache = Fcons (Qt, Qnil); |
90400 | 2700 |
90464
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2701 staticpro (&ftfont_generic_family_list); |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2702 ftfont_generic_family_list |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2703 = Fcons (Fcons (Qmonospace, Qt), |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2704 Fcons (Fcons (Qsans_serif, Qt), |
4702b592db4c
(Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents:
90450
diff
changeset
|
2705 Fcons (Fcons (Qsans, Qt), Qnil))); |
90400 | 2706 |
95103 | 2707 staticpro (&ft_face_cache); |
2708 ft_face_cache = Qnil; | |
2709 | |
90400 | 2710 ftfont_driver.type = Qfreetype; |
2711 register_font_driver (&ftfont_driver, NULL); | |
2712 } | |
90427 | 2713 |
2714 /* arch-tag: 7cfa432c-33a6-4988-83d2-a82ed8604aca | |
2715 (do not change this comment) */ |