annotate src/ftfont.c @ 112403:c81ff7082a9a

src/config.in: shrink slightly * configure.in: Invoke the new gnulib macro gl_ASSERT_NO_GNULIB_TESTS. This makes src/config.in a bit smaller, by removing identifiers like GNULIB_TEST_MKTIME that Emacs does not need. * m4/getopt.m4, m4/gnulib-common.m4, m4/include_next.m4: * m4/multiarch.m4, m4/stddef_h.m4, m4/time_h.m4, m4/unistd_h.m4: Sync from gnulib. This removes a few more unnecessary symbols from src/config.in, such as AA_APPLE_UNIVERSAL_BUILD and HAVE_STDDEF_H. * configure, src/config.in: Regenerate.
author Paul Eggert <eggert@cs.ucla.edu>
date Fri, 21 Jan 2011 16:12:10 -0800
parents ef719132ddfa
children 9de5a68b57e1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 /* ftfont.c -- FreeType font driver.
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 110989
diff changeset
2 Copyright (C) 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 110989
diff changeset
3 Copyright (C) 2006, 2007, 2008, 2009, 2010, 2011
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 National Institute of Advanced Industrial Science and Technology (AIST)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 Registration Number H13PRO009
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 This file is part of GNU Emacs.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94931
diff changeset
9 GNU Emacs is free software: you can redistribute it and/or modify
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 GNU Emacs is distributed in the hope that it will be useful,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 GNU General Public License for more details.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94931
diff changeset
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 #include <config.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 #include <stdio.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 103887
diff changeset
24 #include <setjmp.h>
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 #include <fontconfig/fontconfig.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 #include <fontconfig/fcfreetype.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 #include "lisp.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "dispextern.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 #include "frame.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 #include "blockinput.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 #include "character.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 #include "charset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 #include "coding.h"
97826
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
36 #include "composite.h"
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 #include "fontset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 Lisp_Object Qfreetype;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 static FT_Library ft_library;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 static Lisp_Object freetype_font_cache;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
57 static Lisp_Object ft_face_cache;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 /* The actual structure for FreeType font that can be casted to struct
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 struct ftfont_info
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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);
110989
36726f009542 Fix handling of font properties on Windows (bug#6303).
Juanma Barranquero <lekktu@gmail.com>
parents: 109081
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
96 static struct
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
100 /* characters to distinguish the charset from the others */
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
104 /* set on demand */
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
105 FcCharSet *fc_charset;
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
144 { NULL }
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
145 };
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
110989
36726f009542 Fix handling of font properties on Windows (bug#6303).
Juanma Barranquero <lekktu@gmail.com>
parents: 109081
diff changeset
263 font. */
102991
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
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
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
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
311 if (FcPatternGetLangSet (pattern, FC_LANG, 0, &langset) != FcResultMatch)
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
312 {
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
313 /* This is to avoid the effect of locale. */
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
314 langset = FcLangSetCreate ();
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
315 FcLangSetAdd (langset, "en");
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
316 FcPatternAddLangSet (pattern, FC_LANG, langset);
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
317 FcLangSetDestroy (langset);
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
364 if (NILP (cache))
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
382 }
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
383 else
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
440 }
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
441 return cache;
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
442 }
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
500
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
501 struct font_driver ftfont_driver =
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
505 ftfont_get_cache,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
510 ftfont_open,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
511 ftfont_close,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515 ftfont_has_char,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 ftfont_encode_char,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517 ftfont_text_extents,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
547 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
548
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
551 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
552 return freetype_font_cache;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
553 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554
95103
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
561 int i, j;
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
577 break;
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
578 if (! fc_charset_table[i].name)
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
579 return -1;
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
580 if (! fc_charset_table[i].fc_charset)
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
594 }
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
595 return i;
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
596 }
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
652 spec->langsys_tag = 0;
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
653 if (! NILP (otf_spec))
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
654 {
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
655 val = XCAR (otf_spec);
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
656 if (! NILP (val))
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
657 OTF_SYM_TAG (val, spec->langsys_tag);
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
658 otf_spec = XCDR (otf_spec);
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
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
f24a9a68524d Fix Myanmar OTF support
Kenichi Handa <handa@m17n.org>
parents: 106815
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
696 {
95103
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
697 Lisp_Object tmp, extra;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
698 FcPattern *pattern = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
699 FcCharSet *charset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
719 registry = AREF (spec, FONT_REGISTRY_INDEX);
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
725 else
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
742 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
757 if (! langset)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
762 goto err;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
763 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
783 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
812 if (charset
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
813 && ! FcPatternAddCharSet (pattern, FC_CHARSET, charset))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
814 goto err;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
815 if (langset
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
816 && ! FcPatternAddLangSet (pattern, FC_LANG, langset))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
90f8df2248ad (ftfont_list): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90518
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1033 goto finish;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1034
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1035 err:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1038 val = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1039
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1042 if (objset) FcObjectSetDestroy (objset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1043 if (fontset) FcFontSetDestroy (fontset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1044 if (pattern) FcPatternDestroy (pattern);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1045 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1046 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1047
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1102 FcPattern *pattern = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1103 FcFontSet *fontset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1104 FcObjectSet *objset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1105 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1106
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1107 if (! fc_initialized)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1108 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1109 FcInit ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1110 fc_initialized = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1111 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1112
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1113 pattern = FcPatternCreate ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1114 if (! pattern)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1117 if (! objset)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1118 goto finish;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1119 fontset = FcFontList (NULL, pattern, objset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1120 if (! fontset)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1121 goto finish;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1122
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1123 for (i = 0; i < fontset->nfont; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1124 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1125 FcPattern *pat = fontset->fonts[i];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1126 FcChar8 *str;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1127
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1130 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1131
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1132 finish:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1133 if (objset) FcObjectSetDestroy (objset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1134 if (fontset) FcFontSetDestroy (fontset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1135 if (pattern) FcPatternDestroy (pattern);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1136
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1137 return list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1138 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1139
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1143 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1144 struct ftfont_info *ftfont_info;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1147 FT_Face ft_face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1148 FT_Size ft_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1151 int scalable;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1162 if (NILP (cache))
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1169 if (XSAVE_VALUE (val)->integer > 0)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1170 {
95103
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1171 /* FT_Face in this cache is already used by the different size. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1174 if (FT_Activate_Size (ft_size) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1175 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1178 }
95103
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1179 }
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1180 XSAVE_VALUE (val)->integer++;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1181 size = XINT (AREF (entity, FONT_SIZE_INDEX));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1182 if (size == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1183 size = pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1184 if (FT_Set_Pixel_Sizes (ft_face, size, size) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1185 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1186 if (XSAVE_VALUE (val)->integer == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1189 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1214 font->pixel_size = size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1219 scalable = (INTEGERP (AREF (entity, FONT_AVGWIDTH_INDEX))
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1233 if (INTEGERP (AREF (entity, FONT_SPACING_INDEX)))
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1234 spacing = XINT (AREF (entity, FONT_SPACING_INDEX));
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1241 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1261 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1279 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1280
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1283 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1284 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
95103
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1285 Lisp_Object val, cache;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
1290 val = XCDR (cache);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1291 (XSAVE_VALUE (val)->integer)--;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1303 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1304 FT_Done_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1305 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1335 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1336
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1339 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1340 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1341 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1342 FT_ULong charcode = c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1343 FT_UInt code = FT_Get_Char_Index (ft_face, charcode);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1346 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1347
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1350 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1351 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1352 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1355
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1356 if (ftfont_info->ft_size != ft_face->size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1357 FT_Activate_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1361 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1362 if (FT_Load_Glyph (ft_face, code[i], FT_LOAD_DEFAULT) == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1363 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1364 FT_Glyph_Metrics *m = &ft_face->glyph->metrics;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1377 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1378 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1379 if (metrics->lbearing > width + (m->horiBearingX >> 6))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1380 metrics->lbearing = width + (m->horiBearingX >> 6);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1381 if (metrics->rbearing
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1382 < width + ((m->horiBearingX + m->width) >> 6))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1383 metrics->rbearing
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1384 = width + ((m->horiBearingX + m->width) >> 6);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1385 if (metrics->ascent < (m->horiBearingY >> 6))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1389 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1390 width += m->horiAdvance >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1391 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1392 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1395 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1396 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1397 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1398 metrics->width = width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1399
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1400 return width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1401 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1402
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1405 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1406 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1407 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1408 FT_Int32 load_flags = FT_LOAD_RENDER;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1409
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1410 if (ftfont_info->ft_size != ft_face->size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1411 FT_Activate_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1412 if (bits_per_pixel == 1)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1413 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1414 #ifdef FT_LOAD_TARGET_MONO
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1415 load_flags |= FT_LOAD_TARGET_MONO;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1416 #else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1417 load_flags |= FT_LOAD_MONOCHROME;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1418 #endif
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1419 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1420 else if (bits_per_pixel != 8)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1421 /* We don't support such a rendering. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1422 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1423
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1424 if (FT_Load_Glyph (ft_face, code, load_flags) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1435 bitmap->rows = ft_face->glyph->bitmap.rows;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1436 bitmap->width = ft_face->glyph->bitmap.width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1437 bitmap->pitch = ft_face->glyph->bitmap.pitch;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1438 bitmap->buffer = ft_face->glyph->bitmap.buffer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1439 bitmap->left = ft_face->glyph->bitmap_left;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1440 bitmap->top = ft_face->glyph->bitmap_top;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1441 bitmap->advance = ft_face->glyph->metrics.horiAdvance >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1442 bitmap->extra = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1443
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1444 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1445 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1446
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1449 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1450 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1451 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1452
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1453 if (ftfont_info->ft_size != ft_face->size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1454 FT_Activate_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1455 if (FT_Load_Glyph (ft_face, code, FT_LOAD_DEFAULT) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1456 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1457 if (ft_face->glyph->format != FT_GLYPH_FORMAT_OUTLINE)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1458 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1459 if (index >= ft_face->glyph->outline.n_points)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1460 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1461 *x = ft_face->glyph->outline.points[index].x;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1462 *y = ft_face->glyph->outline.points[index].y;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1463 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1464 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
6434da51a24b *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 96592
diff changeset
1725 if (anchor->f.f2.XDeviceTable.offset
6434da51a24b *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 96592
diff changeset
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
6434da51a24b *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 96592
diff changeset
1728 if (anchor->f.f2.YDeviceTable.offset
6434da51a24b *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 96592
diff changeset
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
111997
a5a188ddc758 Minor clean up to silence some gcc warnings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 111473
diff changeset
1770 ftfont_drive_otf (MFLTFont *font,
a5a188ddc758 Minor clean up to silence some gcc warnings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 111473
diff changeset
1771 MFLTOtfSpec *spec,
a5a188ddc758 Minor clean up to silence some gcc warnings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 111473
diff changeset
1772 MFLTGlyphString *in,
a5a188ddc758 Minor clean up to silence some gcc warnings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 111473
diff changeset
1773 int from,
a5a188ddc758 Minor clean up to silence some gcc warnings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 111473
diff changeset
1774 int to,
a5a188ddc758 Minor clean up to silence some gcc warnings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 111473
diff changeset
1775 MFLTGlyphString *out,
a5a188ddc758 Minor clean up to silence some gcc warnings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 111473
diff changeset
1776 MFLTGlyphAdjustment *adjustment)
108347
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
110989
36726f009542 Fix handling of font properties on Windows (bug#6303).
Juanma Barranquero <lekktu@gmail.com>
parents: 109081
diff changeset
2096 static int
108347
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
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
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
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
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
f1d6d439f960 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 96840
diff changeset
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
111473
1e95f3ea022d Add const to array elements of font filter properties.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 110997
diff changeset
2601 static const char *const ftfont_booleans [] = {
106085
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
111473
1e95f3ea022d Add const to array elements of font filter properties.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 110997
diff changeset
2614 static const char *const ftfont_non_booleans [] = {
106085
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 {
110989
36726f009542 Fix handling of font properties on Windows (bug#6303).
Juanma Barranquero <lekktu@gmail.com>
parents: 109081
diff changeset
2648 font_filter_properties (font, alist, ftfont_booleans, ftfont_non_booleans);
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
2649 }
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
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2652 void
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109100
diff changeset
2653 syms_of_ftfont (void)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2654 {
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2655 DEFSYM (Qfreetype, "freetype");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2656 DEFSYM (Qmonospace, "monospace");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2657 DEFSYM (Qsans_serif, "sans-serif");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2658 DEFSYM (Qserif, "serif");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2659 DEFSYM (Qmono, "mono");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2660 DEFSYM (Qsans, "sans");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2661 DEFSYM (Qsans__serif, "sans serif");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2662
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2663 staticpro (&freetype_font_cache);
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
2664 freetype_font_cache = Fcons (Qt, Qnil);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2665
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2666 staticpro (&ftfont_generic_family_list);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2667 ftfont_generic_family_list
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2668 = Fcons (Fcons (Qmonospace, Qt),
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2669 Fcons (Fcons (Qsans_serif, Qt),
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
2670 Fcons (Fcons (Qsans, Qt), Qnil)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2671
95103
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
2672 staticpro (&ft_face_cache);
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
2673 ft_face_cache = Qnil;
974543f59c33 (cs_iso8859_1): Deleted.
Kenichi Handa <handa@m17n.org>
parents: 95002
diff changeset
2674
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2675 ftfont_driver.type = Qfreetype;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2676 register_font_driver (&ftfont_driver, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2677 }
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
2678