annotate src/ftfont.c @ 92198:6a56f830d80b

* configure.in: Print an error for systems that we think are obsolete and are proposed to be removed. Remove some more unused systems. * configure: Regenerate.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 25 Feb 2008 08:17:18 +0000
parents 5348213975e3
children c10a8c811515
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.
91555
21d9f8ca293c Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents: 91308
diff changeset
2 Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc.
21d9f8ca293c Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents: 91308
diff changeset
3 Copyright (C) 2006, 2007, 2008
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9 GNU Emacs is free software; you can redistribute it and/or modify
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
91555
21d9f8ca293c Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents: 91308
diff changeset
11 the Free Software Foundation; either version 3, or (at your option)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 any later version.
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
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 along with GNU Emacs; see the file COPYING. If not, write to
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 Boston, MA 02110-1301, USA. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 #include <config.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 #include <stdio.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 #include <fontconfig/fontconfig.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 #include <fontconfig/fcfreetype.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "lisp.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 #include "dispextern.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 #include "frame.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 #include "blockinput.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 #include "character.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 #include "charset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 #include "coding.h"
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
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
47 /* Flag to tell if FcInit is areadly 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
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
56 /* Fontconfig's charset used for finding fonts of registry
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
57 "iso8859-1". */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 static FcCharSet *cs_iso8859_1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 /* The actual structure for FreeType font that can be casted to struct
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 struct ftfont_info
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 struct font font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 FT_Size ft_size;
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
67 #ifdef HAVE_LIBOTF
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 */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
73 static int ftfont_build_basic_charsets P_ ((void));
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
74 static Lisp_Object ftfont_pattern_entity P_ ((FcPattern *,
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
75 Lisp_Object, Lisp_Object));
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
76 static Lisp_Object ftfont_list_generic_family P_ ((Lisp_Object, Lisp_Object,
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
77 Lisp_Object));
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
78 Lisp_Object ftfont_font_format P_ ((FcPattern *));
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
79
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
80 #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
81
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 ftfont_build_basic_charsets ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 FcChar32 c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 cs_iso8859_1 = FcCharSetCreate ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 if (! cs_iso8859_1)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 for (c = ' '; c < 127; c++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 if (! FcCharSetAddChar (cs_iso8859_1, c))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 return -1;
90524
b7bcc590bab5 (ftfont_list): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90522
diff changeset
93 #if 0
b7bcc590bab5 (ftfont_list): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90522
diff changeset
94 /* This part is currently disabled. Should be fixed later. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 for (c = 192; c < 256; c++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 if (! FcCharSetAddChar (cs_iso8859_1, c))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 return -1;
90524
b7bcc590bab5 (ftfont_list): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90522
diff changeset
98 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
102 static Lisp_Object
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
103 ftfont_pattern_entity (p, frame, registry)
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
104 FcPattern *p;
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
105 Lisp_Object frame, registry;
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
106 {
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
107 Lisp_Object entity;
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
108 FcChar8 *file, *fontformat;
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
109 FcCharSet *charset;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
110 char *str;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
111 int numeric;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
112 double dbl;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
113
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
114 if (FcPatternGetString (p, FC_FILE, 0, &file) != FcResultMatch)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
115 return Qnil;
90450
5c96354daf9e (ftfont_pattern_entity): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90441
diff changeset
116 if (FcPatternGetCharSet (p, FC_CHARSET, 0, &charset) != FcResultMatch)
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
117 charset = NULL;
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
118 #ifdef FC_FONTFORMAT
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
119 if (FcPatternGetString (p, FC_FONTFORMAT, 0, &fontformat) != FcResultMatch)
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
120 #endif /* FC_FONTFORMAT */
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
121 fontformat = NULL;
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
122
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
123 entity = Fmake_vector (make_number (FONT_ENTITY_MAX), null_string);
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
124
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
125 ASET (entity, FONT_TYPE_INDEX, Qfreetype);
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
126 ASET (entity, FONT_REGISTRY_INDEX, registry);
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
127 ASET (entity, FONT_FRAME_INDEX, frame);
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
128 ASET (entity, FONT_OBJLIST_INDEX, Qnil);
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
129
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
130 if (FcPatternGetString (p, FC_FOUNDRY, 0, (FcChar8 **) &str) == FcResultMatch)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
131 ASET (entity, FONT_FOUNDRY_INDEX, intern_downcase (str, strlen (str)));
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
132 if (FcPatternGetString (p, FC_FAMILY, 0, (FcChar8 **) &str) == FcResultMatch)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
133 ASET (entity, FONT_FAMILY_INDEX, intern_downcase (str, strlen (str)));
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
134 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
135 {
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
136 if (numeric == FC_WEIGHT_REGULAR)
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
137 numeric = 100;
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
138 ASET (entity, FONT_WEIGHT_INDEX, make_number (numeric));
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
139 }
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
140 if (FcPatternGetInteger (p, FC_SLANT, 0, &numeric) == FcResultMatch)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
141 ASET (entity, FONT_SLANT_INDEX, make_number (numeric + 100));
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
142 if (FcPatternGetInteger (p, FC_WIDTH, 0, &numeric) == FcResultMatch)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
143 ASET (entity, FONT_WIDTH_INDEX, make_number (numeric));
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
144 if (FcPatternGetDouble (p, FC_PIXEL_SIZE, 0, &dbl) == FcResultMatch)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
145 ASET (entity, FONT_SIZE_INDEX, make_number (dbl));
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
146 else
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
147 ASET (entity, FONT_SIZE_INDEX, make_number (0));
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
148
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
149 if (FcPatternGetInteger (p, FC_SPACING, 0, &numeric) != FcResultMatch)
90568
3762a2cc74de (ftfont_pattern_entity): If the pattern doesn't contain
Kenichi Handa <handa@m17n.org>
parents: 90567
diff changeset
150 numeric = -1;
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
151 file = FcStrCopy (file);
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
152 if (! file)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
153 return Qnil;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
154
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
155 p = FcPatternCreate ();
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
156 if (! p)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
157 return Qnil;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
158
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
159 if (FcPatternAddString (p, FC_FILE, file) == FcFalse
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
160 || (charset
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
161 && FcPatternAddCharSet (p, FC_CHARSET, charset) == FcFalse)
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
162 #ifdef FC_FONTFORMAT
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
163 || (fontformat
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
164 && FcPatternAddString (p, FC_FONTFORMAT, fontformat) == FcFalse)
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
165 #endif /* FC_FONTFORMAT */
90568
3762a2cc74de (ftfont_pattern_entity): If the pattern doesn't contain
Kenichi Handa <handa@m17n.org>
parents: 90567
diff changeset
166 || (numeric >= 0
3762a2cc74de (ftfont_pattern_entity): If the pattern doesn't contain
Kenichi Handa <handa@m17n.org>
parents: 90567
diff changeset
167 && FcPatternAddInteger (p, FC_SPACING, numeric) == FcFalse))
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
168 {
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
169 FcPatternDestroy (p);
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
170 return Qnil;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
171 }
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
172 ASET (entity, FONT_EXTRA_INDEX, make_save_value (p, 0));
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
173 return entity;
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
174 }
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
175
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
176 static Lisp_Object ftfont_generic_family_list;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
177
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
178 static Lisp_Object
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
179 ftfont_list_generic_family (spec, frame, registry)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
180 Lisp_Object spec, frame, registry;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
181 {
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
182 Lisp_Object family = AREF (spec, FONT_FAMILY_INDEX);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
183 Lisp_Object slot, list, val;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
184
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
185 if (EQ (family, Qmono))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
186 family = Qmonospace;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
187 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
188 family = Qsans_serif;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
189 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
190 if (! CONSP (slot))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
191 return null_vector;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
192 list = XCDR (slot);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
193 if (EQ (list, Qt))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
194 {
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
195 /* Not yet listed. */
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
196 FcObjectSet *objset = NULL;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
197 FcPattern *pattern = NULL, *pat = NULL;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
198 FcFontSet *fontset = NULL;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
199 FcChar8 *fam;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
200 int i, j;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
201
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
202 objset = FcObjectSetBuild (FC_FOUNDRY, FC_FAMILY, FC_WEIGHT, FC_SLANT,
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
203 FC_WIDTH, FC_PIXEL_SIZE, FC_SPACING,
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
204 FC_CHARSET, FC_FILE,
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
205 #ifdef FC_FONTFORMAT
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
206 FC_FONTFORMAT,
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
207 #endif /* FC_FONTFORMAT */
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
208 NULL);
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
209 if (! objset)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
210 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
211 pattern = FcPatternBuild (NULL, FC_FAMILY, FcTypeString,
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
212 SYMBOL_FcChar8 (family), (char *) 0);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
213 if (! pattern)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
214 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
215 pat = FcPatternCreate ();
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
216 if (! pat)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
217 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
218 FcConfigSubstitute (NULL, pattern, FcMatchPattern);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
219 for (i = 0, val = Qnil;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
220 FcPatternGetString (pattern, FC_FAMILY, i, &fam) == FcResultMatch;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
221 i++)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
222 {
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
223 if (strcmp ((char *) fam, (char *) SYMBOL_FcChar8 (family)) == 0)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
224 continue;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
225 if (! FcPatternAddString (pat, FC_FAMILY, fam))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
226 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
227 fontset = FcFontList (NULL, pat, objset);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
228 if (! fontset)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
229 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
230 /* Here we build the list in reverse order so that the last
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
231 loop in this function build a list in the correct
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
232 order. */
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
233 for (j = 0; j < fontset->nfont; j++)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
234 {
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
235 Lisp_Object entity;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
236
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
237 entity = ftfont_pattern_entity (fontset->fonts[j],
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
238 frame, registry);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
239 if (! NILP (entity))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
240 val = Fcons (entity, val);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
241 }
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
242 FcFontSetDestroy (fontset);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
243 fontset = NULL;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
244 FcPatternDel (pat, FC_FAMILY);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
245 }
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
246 list = val;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
247 XSETCDR (slot, list);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
248 err:
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
249 if (pat) FcPatternDestroy (pat);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
250 if (pattern) FcPatternDestroy (pattern);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
251 if (fontset) FcFontSetDestroy (fontset);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
252 if (objset) FcObjectSetDestroy (objset);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
253 if (EQ (list, Qt))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
254 return Qnil;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
255 }
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
256 ASET (spec, FONT_FAMILY_INDEX, Qnil);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
257 for (val = Qnil; CONSP (list); list = XCDR (list))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
258 if (font_match_p (spec, XCAR (list)))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
259 val = Fcons (XCAR (list), val);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
260 ASET (spec, FONT_FAMILY_INDEX, family);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
261 return Fvconcat (1, &val);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
262 }
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
263
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
264
91249
4f21471103e6 (ftfont_get_cache): Adjust the argument type.
Kenichi Handa <handa@m17n.org>
parents: 91214
diff changeset
265 static Lisp_Object ftfont_get_cache P_ ((FRAME_PTR));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 static Lisp_Object ftfont_list P_ ((Lisp_Object, Lisp_Object));
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
267 static Lisp_Object ftfont_match P_ ((Lisp_Object, Lisp_Object));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268 static Lisp_Object ftfont_list_family P_ ((Lisp_Object));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269 static void ftfont_free_entity P_ ((Lisp_Object));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 static struct font *ftfont_open P_ ((FRAME_PTR, Lisp_Object, int));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271 static void ftfont_close P_ ((FRAME_PTR, struct font *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 static int ftfont_has_char P_ ((Lisp_Object, int));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273 static unsigned ftfont_encode_char P_ ((struct font *, int));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274 static int ftfont_text_extents P_ ((struct font *, unsigned *, int,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
275 struct font_metrics *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
276 static int ftfont_get_bitmap P_ ((struct font *, unsigned,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
277 struct font_bitmap *, int));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
278 static int ftfont_anchor_point P_ ((struct font *, unsigned, int,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
279 int *, int *));
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
280 static Lisp_Object ftfont_shape P_ ((Lisp_Object));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
281
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
282 struct font_driver ftfont_driver =
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
283 {
90697
444b40002533 (ftfont_driver): Initialize ftfont_driver.type by 0.
Kenichi Handa <handa@m17n.org>
parents: 90680
diff changeset
284 0, /* Qfreetype */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
285 ftfont_get_cache,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
286 ftfont_list,
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
287 ftfont_match,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288 ftfont_list_family,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 ftfont_free_entity,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
290 ftfont_open,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291 ftfont_close,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292 /* We can't draw a text without device dependent functions. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295 ftfont_has_char,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 ftfont_encode_char,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297 ftfont_text_extents,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 /* We can't draw a text without device dependent functions. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
299 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
300 ftfont_get_bitmap,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
301 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 ftfont_anchor_point,
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
305 NULL,
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
306 NULL,
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
307 NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308 NULL,
91308
9b6270bcd1a7 (ftfont_driver): Set ftfont_shape in ftfont_driver only
Kenichi Handa <handa@m17n.org>
parents: 91294
diff changeset
309 #if defined (HAVE_M17N_FLT) && defined (HAVE_LIBOTF)
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
310 ftfont_shape
91308
9b6270bcd1a7 (ftfont_driver): Set ftfont_shape in ftfont_driver only
Kenichi Handa <handa@m17n.org>
parents: 91294
diff changeset
311 #else /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312 NULL
91308
9b6270bcd1a7 (ftfont_driver): Set ftfont_shape in ftfont_driver only
Kenichi Handa <handa@m17n.org>
parents: 91294
diff changeset
313 #endif /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316 extern Lisp_Object QCname;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 static Lisp_Object
91249
4f21471103e6 (ftfont_get_cache): Adjust the argument type.
Kenichi Handa <handa@m17n.org>
parents: 91214
diff changeset
319 ftfont_get_cache (f)
4f21471103e6 (ftfont_get_cache): Adjust the argument type.
Kenichi Handa <handa@m17n.org>
parents: 91214
diff changeset
320 FRAME_PTR f;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
321 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
322 return freetype_font_cache;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
323 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
324
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
325 struct OpenTypeSpec
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
326 {
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
327 Lisp_Object script;
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
328 unsigned int script_tag, langsys_tag;
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
329 int nfeatures[2];
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
330 unsigned int *features[2];
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
331 };
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
332
91191
5bce041b93dc (OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents: 91189
diff changeset
333 #define OTF_SYM_TAG(SYM, TAG) \
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
334 do { \
91191
5bce041b93dc (OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents: 91189
diff changeset
335 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
336 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
337 } while (0)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
338
91191
5bce041b93dc (OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents: 91189
diff changeset
339 #define OTF_TAG_STR(TAG, P) \
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
340 do { \
91191
5bce041b93dc (OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents: 91189
diff changeset
341 (P)[0] = (char) (TAG >> 24); \
5bce041b93dc (OTF_SYM_TAG, OTF_TAG_STR): Fix argument names.
Kenichi Handa <handa@m17n.org>
parents: 91189
diff changeset
342 (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
343 (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
344 (P)[3] = (char) (TAG & 0xFF); \
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
345 (P)[4] = '\0'; \
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
346 } while (0)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
347
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
348 static struct OpenTypeSpec *
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
349 ftfont_get_open_type_spec (Lisp_Object otf_spec)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
350 {
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
351 struct OpenTypeSpec *spec = malloc (sizeof (struct OpenTypeSpec));
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
352 Lisp_Object val;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
353 int i, j, negative;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
354
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
355 if (! spec)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
356 return NULL;
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
357 spec->script = XCAR (otf_spec);
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
358 if (! NILP (val))
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
359 {
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
360 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
361 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
362 if (CONSP (val) && SYMBOLP (XCDR (val)))
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
363 spec->script = XCDR (val);
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
364 else
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
365 spec->script = Qnil;
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
366 }
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
367 else
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
368 spec->script_tag = 0x44464C54; /* "DFLT" */
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
369 otf_spec = XCDR (otf_spec);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
370 val = XCAR (otf_spec);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
371 if (! NILP (val))
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
372 OTF_SYM_TAG (val, spec->langsys_tag);
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
373 else
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
374 spec->langsys_tag = 0;
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
375 spec->nfeatures[0] = spec->nfeatures[1] = 0;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
376 for (i = 0; i < 2; i++)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
377 {
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
378 Lisp_Object len;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
379
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
380 otf_spec = XCDR (otf_spec);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
381 if (NILP (otf_spec))
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
382 break;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
383 val = XCAR (otf_spec);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
384 if (NILP (val))
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
385 continue;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
386 len = Flength (val);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
387 spec->features[i] = malloc (sizeof (int) * XINT (len));
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
388 if (! spec->features[i])
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
389 {
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
390 if (i > 0 && spec->features[0])
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
391 free (spec->features[0]);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
392 free (spec);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
393 return NULL;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
394 }
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
395 for (j = 0, negative = 0; CONSP (val); val = XCDR (val))
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
396 {
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
397 if (NILP (XCAR (val)))
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
398 negative = 1;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
399 else
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
400 {
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
401 unsigned int tag;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
402
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
403 OTF_SYM_TAG (XCAR (val), tag);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
404 spec->features[i][j++] = negative ? tag & 0x80000000 : tag;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
405 }
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
406 }
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
407 spec->nfeatures[i] = j;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
408 }
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
409 return spec;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
410 }
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
411
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
412 static Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
413 ftfont_list (frame, spec)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
414 Lisp_Object frame, spec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
415 {
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
416 Lisp_Object val, tmp, extra;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
417 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
418 FcPattern *pattern = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419 FcCharSet *charset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
420 FcLangSet *langset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
421 FcFontSet *fontset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
422 FcObjectSet *objset = NULL;
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
423 Lisp_Object script;
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
424 Lisp_Object registry = Qunicode_bmp;
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
425 struct OpenTypeSpec *otspec= NULL;
90480
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
426 int weight = 0;
90500
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
427 double dpi = -1;
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
428 int spacing = -1;
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
429 int scalable = -1;
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
430 char otlayout[15]; /* For "otlayout:XXXX" */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
431
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
432 val = null_vector;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
433
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
434 if (! fc_initialized)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
435 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
436 FcInit ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
437 fc_initialized = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
438 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
439
90480
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
440 if (! NILP (AREF (spec, FONT_ADSTYLE_INDEX))
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
441 && ! EQ (AREF (spec, FONT_ADSTYLE_INDEX), null_string))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
442 return val;
90480
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
443 if (! NILP (AREF (spec, FONT_SLANT_INDEX))
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
444 && XINT (AREF (spec, FONT_SLANT_INDEX)) < 100)
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
445 /* Fontconfig doesn't support reverse-italic/obligue. */
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
446 return val;
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
447
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
448 if (! NILP (AREF (spec, FONT_REGISTRY_INDEX)))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
449 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
450 registry = AREF (spec, FONT_REGISTRY_INDEX);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
451 if (EQ (registry, Qiso8859_1))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
452 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
453 if (! cs_iso8859_1
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
454 && ftfont_build_basic_charsets () < 0)
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
455 return Qnil;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
456 charset = cs_iso8859_1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
457 }
90623
4978b2cb6a9e (ftfont_list): Allow registry "unicode-sip".
Kenichi Handa <handa@m17n.org>
parents: 90568
diff changeset
458 else if (! EQ (registry, Qiso10646_1)
4978b2cb6a9e (ftfont_list): Allow registry "unicode-sip".
Kenichi Handa <handa@m17n.org>
parents: 90568
diff changeset
459 && ! EQ (registry, Qunicode_bmp)
4978b2cb6a9e (ftfont_list): Allow registry "unicode-sip".
Kenichi Handa <handa@m17n.org>
parents: 90568
diff changeset
460 && ! EQ (registry, Qunicode_sip))
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
461 return val;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
462 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
463
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
464 otlayout[0] = '\0';
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
465 script = Qnil;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
466 for (extra = AREF (spec, FONT_EXTRA_INDEX);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
467 CONSP (extra); extra = XCDR (extra))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
468 {
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
469 Lisp_Object key, val;
90510
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
470
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
471 tmp = XCAR (extra);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
472 key = XCAR (tmp), val = XCDR (tmp);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
473 if (EQ (key, QCotf))
90510
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
474 {
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
475 otspec = ftfont_get_open_type_spec (val);
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
476 if (! otspec)
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
477 return null_vector;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
478 strcat (otlayout, "otlayout:");
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
479 OTF_TAG_STR (otspec->script_tag, otlayout + 9);
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
480 script = otspec->script;
90510
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
481 }
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
482 else if (EQ (key, QClanguage))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
483 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
484 langset = FcLangSetCreate ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485 if (! langset)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486 goto err;
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
487 if (SYMBOLP (val))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
488 {
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
489 if (! FcLangSetAdd (langset, SYMBOL_FcChar8 (val)))
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
490 goto err;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
491 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
492 else
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
493 for (; CONSP (val); val = XCDR (val))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
494 if (SYMBOLP (XCAR (val))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
495 && ! FcLangSetAdd (langset, SYMBOL_FcChar8 (XCAR (val))))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
496 goto err;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
497 }
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
498 else if (EQ (key, QCscript))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
499 script = val;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
500 else if (EQ (key, QCdpi))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
501 dpi = XINT (val);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
502 else if (EQ (key, QCspacing))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
503 spacing = XINT (val);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
504 else if (EQ (key, QCscalable))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
505 scalable = ! NILP (val);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
506 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
507
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
508 if (! NILP (script) && ! charset)
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
509 {
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
510 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
511
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
512 if (CONSP (chars))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
513 {
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
514 charset = FcCharSetCreate ();
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
515 if (! charset)
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
516 goto err;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
517 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
518 if (CHARACTERP (XCAR (chars))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
519 && ! FcCharSetAddChar (charset, XUINT (XCAR (chars))))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
520 goto err;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
521 }
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
522 }
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
523
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
524 pattern = FcPatternCreate ();
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
525 if (! pattern)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
526 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
527 tmp = AREF (spec, FONT_FOUNDRY_INDEX);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
528 if (SYMBOLP (tmp) && ! NILP (tmp)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
529 && ! FcPatternAddString (pattern, FC_FOUNDRY, SYMBOL_FcChar8 (tmp)))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
530 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
531 tmp = AREF (spec, FONT_FAMILY_INDEX);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
532 if (SYMBOLP (tmp) && ! NILP (tmp)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
533 && ! FcPatternAddString (pattern, FC_FAMILY, SYMBOL_FcChar8 (tmp)))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
534 goto err;
90480
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
535 /* Emacs conventionally doesn't distinguish normal, regular, and
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
536 medium weight, but fontconfig does. So, we can't restrict font
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
537 listing by weight. We check it after getting a list. */
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
538 tmp = AREF (spec, FONT_WEIGHT_INDEX);
90480
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
539 if (INTEGERP (tmp))
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
540 weight = XINT (tmp);
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
541 tmp = AREF (spec, FONT_SLANT_INDEX);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
542 if (INTEGERP (tmp)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
543 && ! FcPatternAddInteger (pattern, FC_SLANT, XINT (tmp) - 100))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
544 goto err;
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
545 tmp = AREF (spec, FONT_WIDTH_INDEX);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
546 if (INTEGERP (tmp)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
547 && ! FcPatternAddInteger (pattern, FC_WIDTH, XINT (tmp)))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
548 goto err;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
550 if (charset
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
551 && ! FcPatternAddCharSet (pattern, FC_CHARSET, charset))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
552 goto err;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
553 if (langset
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 && ! FcPatternAddLangSet (pattern, FC_LANG, langset))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 goto err;
90500
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
556 if (dpi >= 0
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
557 && ! FcPatternAddDouble (pattern, FC_DPI, dpi))
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
558 goto err;
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
559 if (spacing >= 0
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
560 && ! FcPatternAddInteger (pattern, FC_SPACING, spacing))
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
561 goto err;
60e0667ab709 (ftfont_list): Handle properties dpi, spacing, and
Kenichi Handa <handa@m17n.org>
parents: 90480
diff changeset
562 if (scalable >= 0
90522
90f8df2248ad (ftfont_list): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 90518
diff changeset
563 && ! 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
564 goto err;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
565
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
566 objset = FcObjectSetBuild (FC_FOUNDRY, FC_FAMILY, FC_WEIGHT, FC_SLANT,
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
567 FC_WIDTH, FC_PIXEL_SIZE, FC_SPACING,
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
568 FC_CHARSET, FC_FILE,
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
569 #ifdef FC_FONTFORMAT
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
570 FC_FONTFORMAT,
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
571 #endif /* FC_FONTFORMAT */
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
572 NULL);
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
573 if (! objset)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
574 goto err;
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
575 if (otlayout[0])
90516
43ea66432bf9 (ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents: 90514
diff changeset
576 {
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
577 #ifdef FC_CAPABILITY
90516
43ea66432bf9 (ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents: 90514
diff changeset
578 if (! FcObjectSetAdd (objset, FC_CAPABILITY))
43ea66432bf9 (ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents: 90514
diff changeset
579 goto err;
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
580 #else /* not FC_CAPABILITY */
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
581 goto finish;
90518
64c755511769 * ftfont.c (ftfont_list): Move misplaced #endif
Jan Djärv <jan.h.d@swipnet.se>
parents: 90516
diff changeset
582 #endif /* not FC_CAPABILITY */
90516
43ea66432bf9 (ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents: 90514
diff changeset
583 }
90474
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
584
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
585 fontset = FcFontList (NULL, pattern, objset);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
586 if (! fontset)
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
587 goto err;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
588
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
589 if (fontset->nfont > 0)
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
590 {
90474
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
591 double pixel_size;
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
592
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
593 if (NILP (AREF (spec, FONT_SIZE_INDEX)))
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
594 pixel_size = 0;
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
595 else
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
596 pixel_size = XINT (AREF (spec, FONT_SIZE_INDEX));
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
597
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
598 for (i = 0, val = Qnil; i < fontset->nfont; i++)
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
599 {
90474
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
600 Lisp_Object entity;
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
601
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
602 if (pixel_size > 0)
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
603 {
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
604 double this;
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
605
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
606 if (FcPatternGetDouble (fontset->fonts[i], FC_PIXEL_SIZE, 0,
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
607 &this) == FcResultMatch
90480
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
608 && ((this < pixel_size - FONT_PIXEL_SIZE_QUANTUM)
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
609 || (this > pixel_size + FONT_PIXEL_SIZE_QUANTUM)))
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
610 continue;
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
611 }
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
612 if (weight > 0)
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
613 {
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
614 int this;
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
615
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
616 if (FcPatternGetInteger (fontset->fonts[i], FC_WEIGHT, 0,
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
617 &this) != FcResultMatch
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
618 || (this != weight
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
619 && (weight != 100
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
620 || this < FC_WEIGHT_REGULAR
908d27653432 (ftfont_list): Use assq_no_quit, not Fassq. Don't
Kenichi Handa <handa@m17n.org>
parents: 90474
diff changeset
621 || this > FC_WEIGHT_MEDIUM)))
90474
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
622 continue;
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
623 }
90516
43ea66432bf9 (ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents: 90514
diff changeset
624 #ifdef FC_CAPABILITY
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
625 if (otlayout[0])
90510
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
626 {
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
627 FcChar8 *this;
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
628
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
629 if (FcPatternGetString (fontset->fonts[i], FC_CAPABILITY, 0,
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
630 &this) != FcResultMatch
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
631 || ! strstr ((char *) this, otlayout))
90510
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
632 continue;
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
633 }
90516
43ea66432bf9 (ftfont_list): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents: 90514
diff changeset
634 #endif /* FC_CAPABILITY */
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
635 #ifdef HAVE_LIBOTF
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
636 if (otspec)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
637 {
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
638 FcChar8 *file;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
639 OTF *otf;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
640
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
641 if (FcPatternGetString (fontset->fonts[i], FC_FILE, 0, &file)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
642 != FcResultMatch)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
643 continue;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
644 otf = OTF_open ((char *) file);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
645 if (! otf)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
646 continue;
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
647 if (OTF_check_features (otf, 1,
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
648 otspec->script_tag, otspec->langsys_tag,
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
649 otspec->features[0],
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
650 otspec->nfeatures[0]) != 1
91214
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
651 || OTF_check_features (otf, 0,
998b9da240f0 (struct OpenTypeSpec): Members script_tag renamed to
Kenichi Handa <handa@m17n.org>
parents: 91191
diff changeset
652 otspec->script_tag, otspec->langsys_tag,
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
653 otspec->features[1],
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
654 otspec->nfeatures[1]) != 1)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
655 continue;
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
656 }
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
657 #endif /* HAVE_LIBOTF */
90474
8627c9321afb (ftfont_pattern_entity): Use the numeric value 100 for
Kenichi Handa <handa@m17n.org>
parents: 90464
diff changeset
658 entity = ftfont_pattern_entity (fontset->fonts[i], frame, registry);
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
659 if (! NILP (entity))
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
660 val = Fcons (entity, val);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
661 }
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
662 val = Fvconcat (1, &val);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
663 }
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
664 else if (! NILP (AREF (spec, FONT_FAMILY_INDEX)))
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
665 val = ftfont_list_generic_family (spec, frame, registry);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
666 goto finish;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
667
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
668 err:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
669 /* 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
670 (usually insufficient memory). */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
671 val = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
672
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
673 finish:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
674 if (charset && charset != cs_iso8859_1) FcCharSetDestroy (charset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
675 if (objset) FcObjectSetDestroy (objset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
676 if (fontset) FcFontSetDestroy (fontset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
677 if (langset) FcLangSetDestroy (langset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
678 if (pattern) FcPatternDestroy (pattern);
91187
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
679 if (otspec)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
680 {
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
681 if (otspec->nfeatures[0] > 0)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
682 free (otspec->features[0]);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
683 if (otspec->nfeatures[1] > 0)
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
684 free (otspec->features[1]);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
685 free (otspec);
96e18e1645a1 (struct OpenTypeSpec): New struct.
Kenichi Handa <handa@m17n.org>
parents: 91162
diff changeset
686 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
687 return val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
688 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
689
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
690 static Lisp_Object
90565
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
691 ftfont_match (frame, spec)
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
692 Lisp_Object frame, spec;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
693 {
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
694 Lisp_Object extra, val, entity;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
695 FcPattern *pattern = NULL, *match = NULL;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
696 FcResult result;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
697
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
698 if (! fc_initialized)
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
699 {
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
700 FcInit ();
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
701 fc_initialized = 1;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
702 }
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
703
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
704 extra = AREF (spec, FONT_EXTRA_INDEX);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
705 val = assq_no_quit (QCname, extra);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
706 if (! CONSP (val) || ! STRINGP (XCDR (val)))
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
707 return Qnil;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
708
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
709 entity = Qnil;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
710 pattern = FcNameParse (SDATA (XCDR (val)));
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
711 if (pattern)
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
712 {
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
713 if (FcConfigSubstitute (NULL, pattern, FcMatchPattern) == FcTrue)
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
714 {
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
715 FcDefaultSubstitute (pattern);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
716 match = FcFontMatch (NULL, pattern, &result);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
717 if (match)
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
718 {
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
719 entity = ftfont_pattern_entity (match, frame, Qunicode_bmp);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
720 FcPatternDestroy (match);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
721 }
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
722 }
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
723 FcPatternDestroy (pattern);
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
724 }
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
725
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
726 return entity;
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
727 }
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
728
258e759bcffa (ftfont_driver): Set ftfont_driver.match to
Kenichi Handa <handa@m17n.org>
parents: 90555
diff changeset
729 static Lisp_Object
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
730 ftfont_list_family (frame)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
731 Lisp_Object frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
732 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
733 Lisp_Object list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
734 FcPattern *pattern = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
735 FcFontSet *fontset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
736 FcObjectSet *objset = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
737 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
738
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
739 if (! fc_initialized)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
740 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
741 FcInit ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
742 fc_initialized = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
743 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
744
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
745 pattern = FcPatternCreate ();
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
746 if (! pattern)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
747 goto finish;
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
748 objset = FcObjectSetBuild (FC_FAMILY, NULL);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
749 if (! objset)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
750 goto finish;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
751 fontset = FcFontList (NULL, pattern, objset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
752 if (! fontset)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
753 goto finish;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
754
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
755 list = Qnil;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
756 for (i = 0; i < fontset->nfont; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
757 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
758 FcPattern *pat = fontset->fonts[i];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
759 FcChar8 *str;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
760
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
761 if (FcPatternGetString (pat, FC_FAMILY, 0, &str) == FcResultMatch)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
762 list = Fcons (intern_downcase ((char *) str, strlen ((char *) str)),
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
763 list);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
764 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
765
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
766 finish:
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
767 if (objset) FcObjectSetDestroy (objset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
768 if (fontset) FcFontSetDestroy (fontset);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
769 if (pattern) FcPatternDestroy (pattern);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
770
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
771 return list;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
772 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
773
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
774
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
775 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
776 ftfont_free_entity (entity)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
777 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
778 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
779 Lisp_Object val = AREF (entity, FONT_EXTRA_INDEX);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
780 FcPattern *pattern = XSAVE_VALUE (val)->pointer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
781
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
782 FcPatternDestroy (pattern);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
783 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
784
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
785 static struct font *
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
786 ftfont_open (f, entity, pixel_size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
787 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
788 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
789 int pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
790 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
791 struct ftfont_info *ftfont_info;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
792 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
793 FT_Face ft_face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
794 FT_Size ft_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
795 FT_UInt size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
796 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
797 FcPattern *pattern;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
798 FcChar8 *file;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
799 int spacing;
90555
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
800 char *name;
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
801 int len;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
802
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
803 val = AREF (entity, FONT_EXTRA_INDEX);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
804 if (XTYPE (val) != Lisp_Misc
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
805 || XMISCTYPE (val) != Lisp_Misc_Save_Value)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
806 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
807 pattern = XSAVE_VALUE (val)->pointer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
808 if (XSAVE_VALUE (val)->integer == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
809 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
810 /* We have not yet created FT_Face for this font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
811 if (! ft_library
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
812 && FT_Init_FreeType (&ft_library) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
813 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
814 if (FcPatternGetString (pattern, FC_FILE, 0, &file) != FcResultMatch)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
815 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
816 if (FT_New_Face (ft_library, (char *) file, 0, &ft_face) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
817 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
818 FcPatternAddFTFace (pattern, FC_FT_FACE, ft_face);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
819 ft_size = ft_face->size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
820 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
821 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
822 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
823 if (FcPatternGetFTFace (pattern, FC_FT_FACE, 0, &ft_face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
824 != FcResultMatch)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
825 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
826 if (FT_New_Size (ft_face, &ft_size) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
827 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
828 if (FT_Activate_Size (ft_size) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
829 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
830 FT_Done_Size (ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
831 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
832 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
833 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
834
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
835 size = XINT (AREF (entity, FONT_SIZE_INDEX));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
836 if (size == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
837 size = pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
838 if (FT_Set_Pixel_Sizes (ft_face, size, size) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
839 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
840 if (XSAVE_VALUE (val)->integer == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
841 FT_Done_Face (ft_face);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
842 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
843 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
844
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
845 ftfont_info = malloc (sizeof (struct ftfont_info));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
846 if (! ftfont_info)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
847 return NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
848 ftfont_info->ft_size = ft_size;
91162
2b263ef46651 (ftfont_open): Set members maybe_otf and otf of
Kenichi Handa <handa@m17n.org>
parents: 91137
diff changeset
849 #ifdef HAVE_LIBOTF
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
850 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
851 ftfont_info->otf = NULL;
91162
2b263ef46651 (ftfont_open): Set members maybe_otf and otf of
Kenichi Handa <handa@m17n.org>
parents: 91137
diff changeset
852 #endif /* HAVE_LIBOTF */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
853
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
854 font = (struct font *) ftfont_info;
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
855 font->format = ftfont_font_format (pattern);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
856 font->entity = entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
857 font->pixel_size = size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
858 font->driver = &ftfont_driver;
90555
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
859 len = 96;
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
860 name = malloc (len);
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
861 while (name && font_unparse_fcname (entity, pixel_size, name, len) < 0)
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
862 {
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
863 char *new = realloc (name, len += 32);
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
864
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
865 if (! new)
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
866 free (name);
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
867 name = new;
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
868 }
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
869 font->font.full_name = font->font.name = name;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
870 font->file_name = (char *) file;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
871 font->font.size = ft_face->size->metrics.max_advance >> 6;
90555
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
872 if (font->font.size <= 0)
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
873 font->font.size = size;
90510
69dc5ab6d693 (ftfont_list): Handle QCotf property.
Kenichi Handa <handa@m17n.org>
parents: 90500
diff changeset
874 font->font.charset = font->encoding_charset = font->repertory_charset = -1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
875 font->ascent = ft_face->size->metrics.ascender >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
876 font->descent = - ft_face->size->metrics.descender >> 6;
90555
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
877 font->font.height = font->ascent + font->descent;
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
878 if (FcPatternGetInteger (pattern, FC_SPACING, 0, &spacing) != FcResultMatch)
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
879 spacing = FC_PROPORTIONAL;
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
880 if (spacing != FC_PROPORTIONAL)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
881 font->font.average_width = font->font.space_width = font->font.size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
882 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
883 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
884 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
885
91604
bd8c44318d8a (ftfont_open): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 91578
diff changeset
886 font->font.average_width = font->font.space_width = 0;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
887 for (i = 32; i < 127; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
888 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
889 if (FT_Load_Char (ft_face, i, FT_LOAD_DEFAULT) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
890 break;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
891 if (i == 32)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
892 font->font.space_width = ft_face->glyph->metrics.horiAdvance >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
893 font->font.average_width += ft_face->glyph->metrics.horiAdvance >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
894 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
895 if (i == 127)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
896 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
897 /* The font contains all ASCII printable characters. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
898 font->font.average_width /= 95;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
899 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
900 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
901 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
902 if (i == 32)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
903 font->font.space_width = font->font.size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
904 font->font.average_width = font->font.size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
905 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
906 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
907
90555
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
908 /* Unfortunately FreeType doesn't provide a way to get minimum char
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
909 width. So, we use space_width instead. */
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
910 font->min_width = font->font.space_width;
45553626fa76 (ftfont_open): Set font->font.full_name and
Kenichi Handa <handa@m17n.org>
parents: 90524
diff changeset
911
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
912 font->font.baseline_offset = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
913 font->font.relative_compose = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
914 font->font.default_ascent = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
915 font->font.vertical_centering = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
916
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
917 (XSAVE_VALUE (val)->integer)++;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
918
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
919 return font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
920 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
921
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
922 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
923 ftfont_close (f, font)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
924 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
925 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
926 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
927 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
928 Lisp_Object entity = font->entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
929 Lisp_Object val = AREF (entity, FONT_EXTRA_INDEX);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
930
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
931 (XSAVE_VALUE (val)->integer)--;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
932 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
933 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
934 FT_Done_Face (ftfont_info->ft_size->face);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
935 #ifdef HAVE_LIBOTF
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
936 if (ftfont_info->otf)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
937 OTF_close (ftfont_info->otf);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
938 #endif
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
939 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
940 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
941 FT_Done_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
942
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
943 free (font);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
944 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
945
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
946 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
947 ftfont_has_char (entity, c)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
948 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
949 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
950 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
951 Lisp_Object val;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
952 FcPattern *pattern;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
953 FcCharSet *charset;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
954
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
955 val = AREF (entity, FONT_EXTRA_INDEX);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
956 pattern = XSAVE_VALUE (val)->pointer;
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
957 if (FcPatternGetCharSet (pattern, FC_CHARSET, 0, &charset) != FcResultMatch)
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
958 return -1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
959 return (FcCharSetHasChar (charset, (FcChar32) c) == FcTrue);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
960 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
961
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
962 static unsigned
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
963 ftfont_encode_char (font, c)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
964 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
965 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
966 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
967 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
968 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
969 FT_ULong charcode = c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
970 FT_UInt code = FT_Get_Char_Index (ft_face, charcode);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
971
91271
fed5211f4809 (ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91249
diff changeset
972 return (code > 0 ? code : FONT_INVALID_CODE);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
973 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
974
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
975 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
976 ftfont_text_extents (font, code, nglyphs, metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
977 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
978 unsigned *code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
979 int nglyphs;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
980 struct font_metrics *metrics;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
981 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
982 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
983 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
984 int width = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
985 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
986
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
987 if (ftfont_info->ft_size != ft_face->size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
988 FT_Activate_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
989 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
990 bzero (metrics, sizeof (struct font_metrics));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
991 for (i = 0; i < nglyphs; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
992 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
993 if (FT_Load_Glyph (ft_face, code[i], FT_LOAD_DEFAULT) == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
994 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
995 FT_Glyph_Metrics *m = &ft_face->glyph->metrics;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
996
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
997 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
998 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
999 if (metrics->lbearing > width + (m->horiBearingX >> 6))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1000 metrics->lbearing = width + (m->horiBearingX >> 6);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1001 if (metrics->rbearing
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1002 < width + ((m->horiBearingX + m->width) >> 6))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1003 metrics->rbearing
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1004 = width + ((m->horiBearingX + m->width) >> 6);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1005 if (metrics->ascent < (m->horiBearingY >> 6))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1006 metrics->ascent = m->horiBearingY >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1007 if (metrics->descent > ((m->horiBearingY + m->height) >> 6))
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1008 metrics->descent = (m->horiBearingY + m->height) >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1009 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1010 width += m->horiAdvance >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1011 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1012 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1013 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1014 width += font->font.space_width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1015 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1016 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1017 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1018 metrics->width = width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1019
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1020 return width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1021 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1022
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1023 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1024 ftfont_get_bitmap (font, code, bitmap, bits_per_pixel)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1025 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1026 unsigned code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1027 struct font_bitmap *bitmap;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1028 int bits_per_pixel;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1029 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1030 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1031 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1032 FT_Int32 load_flags = FT_LOAD_RENDER;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1033
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1034 if (ftfont_info->ft_size != ft_face->size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1035 FT_Activate_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1036 if (bits_per_pixel == 1)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1037 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1038 #ifdef FT_LOAD_TARGET_MONO
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1039 load_flags |= FT_LOAD_TARGET_MONO;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1040 #else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1041 load_flags |= FT_LOAD_MONOCHROME;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1042 #endif
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1043 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1044 else if (bits_per_pixel != 8)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1045 /* We don't support such a rendering. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1046 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1047
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1048 if (FT_Load_Glyph (ft_face, code, load_flags) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1049 return -1;
91108
6da57551efb7 (ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents: 90963
diff changeset
1050 bitmap->bits_per_pixel
6da57551efb7 (ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents: 90963
diff changeset
1051 = (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
1052 : 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
1053 : 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
1054 : 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
1055 : -1);
6da57551efb7 (ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents: 90963
diff changeset
1056 if (bitmap->bits_per_pixel < 0)
6da57551efb7 (ftfont_get_bitmap): Set bitmap->bits_per_pixel.
Kenichi Handa <handa@m17n.org>
parents: 90963
diff changeset
1057 /* 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
1058 return -1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1059 bitmap->rows = ft_face->glyph->bitmap.rows;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1060 bitmap->width = ft_face->glyph->bitmap.width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1061 bitmap->pitch = ft_face->glyph->bitmap.pitch;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1062 bitmap->buffer = ft_face->glyph->bitmap.buffer;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1063 bitmap->left = ft_face->glyph->bitmap_left;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1064 bitmap->top = ft_face->glyph->bitmap_top;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1065 bitmap->advance = ft_face->glyph->metrics.horiAdvance >> 6;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1066 bitmap->extra = NULL;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1067
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1068 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1069 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1070
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1071 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1072 ftfont_anchor_point (font, code, index, x, y)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1073 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1074 unsigned code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1075 int index;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1076 int *x, *y;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1077 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1078 struct ftfont_info *ftfont_info = (struct ftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1079 FT_Face ft_face = ftfont_info->ft_size->face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1080
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1081 if (ftfont_info->ft_size != ft_face->size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1082 FT_Activate_Size (ftfont_info->ft_size);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1083 if (FT_Load_Glyph (ft_face, code, FT_LOAD_DEFAULT) != 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1084 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1085 if (ft_face->glyph->format != FT_GLYPH_FORMAT_OUTLINE)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1086 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1087 if (index >= ft_face->glyph->outline.n_points)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1088 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1089 *x = ft_face->glyph->outline.points[index].x;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1090 *y = ft_face->glyph->outline.points[index].y;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1091 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1092 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1093
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1094 #ifdef HAVE_LIBOTF
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1095 #ifdef HAVE_M17N_FLT
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1096
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1097 struct MFLTFontFT
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1098 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1099 MFLTFont flt_font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1100 struct font *font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1101 FT_Face ft_face;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1102 OTF *otf;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1103 };
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1104
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1105 static int
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1106 ftfont_get_glyph_id (font, gstring, from, to)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1107 MFLTFont *font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1108 MFLTGlyphString *gstring;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1109 int from, to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1110 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1111 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
1112 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
1113 MFLTGlyph *g;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1114
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1115 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
1116 if (! g->encoded)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1117 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1118 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
1119
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1120 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
1121 g->encoded = 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1122 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1123 return 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1124 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1125
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1126 static int
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1127 ftfont_get_metrics (font, gstring, from, to)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1128 MFLTFont *font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1129 MFLTGlyphString *gstring;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1130 int from, to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1131 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1132 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
1133 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
1134 MFLTGlyph *g;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1135
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1136 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
1137 if (! g->measured)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1138 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1139 if (g->code != FONT_INVALID_CODE)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1140 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1141 FT_Glyph_Metrics *m;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1142
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1143 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
1144 abort ();
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1145 m = &ft_face->glyph->metrics;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1146
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1147 g->lbearing = m->horiBearingX;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1148 g->rbearing = m->horiBearingX + m->width;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1149 g->ascent = m->horiBearingY;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1150 g->descent = m->height - m->horiBearingY;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1151 g->xadv = m->horiAdvance;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1152 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1153 else
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1154 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1155 g->lbearing = 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1156 g->rbearing = g->xadv = flt_font_ft->font->font.space_width << 6;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1157 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
1158 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
1159 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1160 g->yadv = 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1161 g->measured = 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1162 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1163 return 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1164 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1165
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1166 static int
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1167 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
1168 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1169 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
1170 OTF *otf = flt_font_ft->otf;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1171 OTF_Tag *tags;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1172 int i, n, negative;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1173
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1174 for (i = 0; i < 2; i++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1175 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1176 if (! spec->features[i])
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1177 continue;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1178 for (n = 0; spec->features[i][n]; n++);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1179 tags = alloca (sizeof (OTF_Tag) * n);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1180 for (n = 0, negative = 0; spec->features[i][n]; n++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1181 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1182 if (spec->features[i][n] == 0xFFFFFFFF)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1183 negative = 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1184 else if (negative)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1185 tags[n - 1] = spec->features[i][n] | 0x80000000;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1186 else
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1187 tags[n] = spec->features[i][n];
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1188 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1189 if (n - negative > 0
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1190 && OTF_check_features (otf, i == 0, spec->script, spec->langsys,
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1191 tags, n - negative) != 1)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1192 return 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1193 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1194 return 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1195 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1196
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1197 #define DEVICE_DELTA(table, size) \
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1198 (((size) >= (table).StartSize && (size) <= (table).EndSize) \
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1199 ? (table).DeltaValue[(size) - (table).StartSize] << 6 \
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1200 : 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1201
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1202 static void
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1203 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
1204 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
1205 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1206 if (anchor->AnchorFormat == 2)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1207 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1208 FT_Outline *outline;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1209 int ap = anchor->f.f1.AnchorPoint;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1210
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1211 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
1212 outline = &ft_face->glyph->outline;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1213 if (ap < outline->n_points)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1214 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1215 *x = outline->points[ap].x << 6;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1216 *y = outline->points[ap].y << 6;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1217 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1218 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1219 else if (anchor->AnchorFormat == 3)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1220 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1221 if (anchor->f.f2.XDeviceTable.offset)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1222 *x += DEVICE_DELTA (anchor->f.f2.XDeviceTable, x_ppem);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1223 if (anchor->f.f2.YDeviceTable.offset)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1224 *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
1225 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1226 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1227
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1228 static OTF_GlyphString otf_gstring;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1229
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1230 static int
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1231 ftfont_drive_otf (font, spec, in, from, to, out, adjustment)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1232 MFLTFont *font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1233 MFLTOtfSpec *spec;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1234 MFLTGlyphString *in;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1235 int from, to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1236 MFLTGlyphString *out;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1237 MFLTGlyphAdjustment *adjustment;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1238 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1239 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
1240 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
1241 OTF *otf = flt_font_ft->otf;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1242 int len = to - from;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1243 int i, j, gidx;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1244 OTF_Glyph *otfg;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1245 char script[5], *langsys = NULL;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1246 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
1247
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1248 if (len == 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1249 return from;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1250 OTF_tag_name (spec->script, script);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1251 if (spec->langsys)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1252 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1253 langsys = alloca (5);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1254 OTF_tag_name (spec->langsys, langsys);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1255 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1256 for (i = 0; i < 2; i++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1257 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1258 char *p;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1259
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1260 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
1261 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1262 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
1263 if (i == 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1264 p = gsub_features = alloca (6 * j);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1265 else
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1266 p = gpos_features = alloca (6 * j);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1267 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
1268 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1269 if (spec->features[i][j] == 0xFFFFFFFF)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1270 *p++ = '*', *p++ = ',';
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1271 else
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1272 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1273 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
1274 p[4] = ',';
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1275 p += 5;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1276 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1277 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1278 *--p = '\0';
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1279 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1280 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1281
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1282 if (otf_gstring.size == 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1283 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1284 otf_gstring.glyphs = (OTF_Glyph *) malloc (sizeof (OTF_Glyph) * len);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1285 otf_gstring.size = len;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1286 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1287 else if (otf_gstring.size < len)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1288 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1289 otf_gstring.glyphs = (OTF_Glyph *) realloc (otf_gstring.glyphs,
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1290 sizeof (OTF_Glyph) * len);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1291 otf_gstring.size = len;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1292 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1293 otf_gstring.used = len;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1294 memset (otf_gstring.glyphs, 0, sizeof (OTF_Glyph) * len);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1295 for (i = 0; i < len; i++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1296 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1297 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
1298 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
1299 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1300
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1301 OTF_drive_gdef (otf, &otf_gstring);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1302 gidx = out->used;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1303
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1304 if (gsub_features)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1305 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1306 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
1307 < 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1308 goto simple_copy;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1309 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
1310 return -2;
91294
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1311 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
1312 {
91294
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1313 OTF_Glyph *endg;
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1314 MFLTGlyph *g;
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1315 int min_from, max_to;
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1316 int j;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1317
91294
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1318 g = out->glyphs + out->used;
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1319 *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
1320 if (g->code != otfg->glyph_id)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1321 {
91294
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1322 g->c = 0;
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1323 g->code = otfg->glyph_id;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1324 g->measured = 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1325 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1326 out->used++;
91294
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1327 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
1328 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
1329 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
1330 {
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1331 /* 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
1332 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
1333 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
1334 {
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1335 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
1336 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
1337 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
1338 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
1339 }
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1340 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
1341 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
1342 }
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1343 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
1344 && 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
1345 i++, otfg++)
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1346 {
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1347 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
1348 *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
1349 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
1350 {
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1351 g->c = 0;
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1352 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
1353 g->measured = 0;
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1354 }
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1355 out->used++;
299c64a7a9fb (ftfont_drive_otf): Fix setting of FROM and TO slots of
Kenichi Handa <handa@m17n.org>
parents: 91271
diff changeset
1356 }
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1357 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1358 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1359 else
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1360 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1361 if (out->allocated < out->used + len)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1362 return -2;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1363 for (i = 0; i < len; i++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1364 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
1365 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1366
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1367 if (gpos_features)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1368 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1369 MFLTGlyph *base = NULL, *mark = NULL, *g;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1370 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
1371
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1372 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
1373 < 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1374 return to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1375
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1376 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
1377 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
1378 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
1379 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
1380
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1381 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
1382 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
1383 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1384 MFLTGlyph *prev;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1385
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1386 if (! otfg->glyph_id)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1387 continue;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1388 switch (otfg->positioning_type)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1389 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1390 case 0:
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1391 break;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1392 case 1: /* Single */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1393 case 2: /* Pair */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1394 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1395 int format = otfg->f.f1.format;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1396
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1397 if (format & OTF_XPlacement)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1398 adjustment[i].xoff
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1399 = 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
1400 if (format & OTF_XPlaDevice)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1401 adjustment[i].xoff
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1402 += 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
1403 if (format & OTF_YPlacement)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1404 adjustment[i].yoff
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1405 = - (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
1406 if (format & OTF_YPlaDevice)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1407 adjustment[i].yoff
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1408 -= 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
1409 if (format & OTF_XAdvance)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1410 adjustment[i].xadv
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1411 += 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
1412 if (format & OTF_XAdvDevice)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1413 adjustment[i].xadv
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1414 += 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
1415 if (format & OTF_YAdvance)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1416 adjustment[i].yadv
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1417 += 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
1418 if (format & OTF_YAdvDevice)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1419 adjustment[i].yadv
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1420 += 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
1421 adjustment[i].set = 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1422 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1423 break;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1424 case 3: /* Cursive */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1425 /* Not yet supported. */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1426 break;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1427 case 4: /* Mark-to-Base */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1428 case 5: /* Mark-to-Ligature */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1429 if (! base)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1430 break;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1431 prev = base;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1432 goto label_adjust_anchor;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1433 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
1434 if (! mark)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1435 break;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1436 prev = mark;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1437
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1438 label_adjust_anchor:
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1439 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1440 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
1441 int this_from, this_to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1442
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1443 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
1444 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
1445 mark_x = otfg->f.f4.mark_anchor->XCoordinate * x_scale / 0x10000;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1446 mark_y = otfg->f.f4.mark_anchor->YCoordinate * y_scale / 0x10000;;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1447
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1448 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
1449 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
1450 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
1451 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
1452 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
1453 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
1454 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
1455 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
1456 adjustment[i].back = (g - prev);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1457 adjustment[i].xadv = 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1458 adjustment[i].advance_is_absolute = 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1459 adjustment[i].set = 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1460 this_from = g->from;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1461 this_to = g->to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1462 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
1463 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1464 if (this_from > prev[j].from)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1465 this_from = prev[j].from;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1466 if (this_to < prev[j].to)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1467 this_to = prev[j].to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1468 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1469 for (; prev <= g; prev++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1470 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1471 prev->from = this_from;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1472 prev->to = this_to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1473 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1474 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1475 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1476 if (otfg->GlyphClass == OTF_GlyphClass0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1477 base = mark = g;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1478 else if (otfg->GlyphClass == OTF_GlyphClassMark)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1479 mark = g;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1480 else
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1481 base = g;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1482 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1483 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1484 return to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1485
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1486 simple_copy:
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1487 if (out->allocated < out->used + len)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1488 return -2;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1489 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
1490 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
1491 sizeof (MFLTGlyph) * len);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1492 out->used += len;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1493 return to;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1494 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1495
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1496 static MFLTGlyphString gstring;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1497
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1498 static int m17n_flt_initialized;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1499
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1500 extern Lisp_Object QCfamily;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1501
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1502 Lisp_Object
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1503 ftfont_shape_by_flt (lgstring, font, ft_face, otf)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1504 Lisp_Object lgstring;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1505 struct font *font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1506 FT_Face ft_face;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1507 OTF *otf;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1508 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1509 EMACS_UINT len = LGSTRING_LENGTH (lgstring);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1510 EMACS_UINT i;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1511 struct MFLTFontFT flt_font_ft;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1512
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1513 if (! m17n_flt_initialized)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1514 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1515 M17N_INIT ();
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1516 m17n_flt_initialized = 1;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1517 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1518
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1519 for (i = 0; i < len; i++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1520 if (NILP (LGSTRING_GLYPH (lgstring, i)))
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1521 break;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1522 len = i;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1523
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1524 if (gstring.allocated == 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1525 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1526 gstring.allocated = len * 2;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1527 gstring.glyph_size = sizeof (MFLTGlyph);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1528 gstring.glyphs = malloc (sizeof (MFLTGlyph) * gstring.allocated);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1529 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1530 else if (gstring.allocated < len * 2)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1531 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1532 gstring.allocated = len * 2;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1533 gstring.glyphs = realloc (gstring.glyphs,
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1534 sizeof (MFLTGlyph) * gstring.allocated);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1535 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1536 for (i = 0; i < len; i++)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1537 gstring.glyphs[i].c = LGLYPH_CHAR (LGSTRING_GLYPH (lgstring, i));
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1538 gstring.used = len;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1539 gstring.r2l = 0;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1540
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1541 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1542 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
1543
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1544 if (NILP (family))
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1545 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
1546 else
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1547 flt_font_ft.flt_font.family = msymbol (SDATA (SYMBOL_NAME (family)));
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 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
1550 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
1551 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
1552 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
1553 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
1554 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
1555 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
1556 flt_font_ft.font = font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1557 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
1558 flt_font_ft.otf = otf;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1559 for (i = 0; i < 3; i++)
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 int result = mflt_run (&gstring, 0, len, &flt_font_ft.flt_font, NULL);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1562 if (result != -2)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1563 break;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1564 gstring.allocated += gstring.allocated;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1565 gstring.glyphs = realloc (gstring.glyphs,
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1566 sizeof (MFLTGlyph) * gstring.allocated);
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 if (gstring.used > LGSTRING_LENGTH (lgstring))
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1569 return Qnil;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1570 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
1571 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1572 MFLTGlyph *g = gstring.glyphs + i;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1573
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1574 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
1575 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
1576 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1577
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1578 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
1579 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1580 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
1581 MFLTGlyph *g = gstring.glyphs + i;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1582
91271
fed5211f4809 (ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91249
diff changeset
1583 if (NILP (lglyph))
fed5211f4809 (ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91249
diff changeset
1584 {
fed5211f4809 (ftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91249
diff changeset
1585 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
1586 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
1587 }
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1588 LGLYPH_SET_FROM (lglyph, g->from);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1589 LGLYPH_SET_TO (lglyph, g->to);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1590 LGLYPH_SET_CHAR (lglyph, g->c);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1591 LGLYPH_SET_CODE (lglyph, g->code);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1592 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
1593 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
1594 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
1595 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
1596 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
1597 if (g->adjusted)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1598 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1599 Lisp_Object vec;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1600
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1601 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
1602 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
1603 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
1604 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
1605 LGLYPH_SET_ADJUSTMENT (lglyph, vec);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1606 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1607 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1608 return make_number (i);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1609 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1610
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1611 Lisp_Object
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1612 ftfont_shape (lgstring)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1613 Lisp_Object lgstring;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1614 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1615 struct font *font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1616 struct ftfont_info *ftfont_info;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1617
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1618 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
1619 ftfont_info = (struct ftfont_info *) font;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1620 if (! ftfont_info->maybe_otf)
91870
5348213975e3 (ftfont_shape): Return Lispy number.
Kenichi Handa <handa@m17n.org>
parents: 91604
diff changeset
1621 return make_number (0);
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1622 if (! ftfont_info->otf)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1623 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1624 OTF *otf = OTF_open_ft_face (ftfont_info->ft_size->face);
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 if (! otf || OTF_get_table (otf, "head") < 0)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1627 {
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1628 if (otf)
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1629 OTF_close (otf);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1630 ftfont_info->maybe_otf = 0;
91870
5348213975e3 (ftfont_shape): Return Lispy number.
Kenichi Handa <handa@m17n.org>
parents: 91604
diff changeset
1631 return make_number (0);
91137
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1632 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1633
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1634 ftfont_info->otf = otf;
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1635 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1636
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1637 return ftfont_shape_by_flt (lgstring, font, ftfont_info->ft_size->face,
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1638 ftfont_info->otf);
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1639 }
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1640
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1641 #endif /* HAVE_M17N_FLT */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1642 #endif /* HAVE_LIBOTF */
00323e98bffb Don't include Freetype headers. Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91108
diff changeset
1643
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1644 Lisp_Object
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1645 ftfont_font_format (FcPattern *pattern)
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1646 {
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1647 FcChar8 *str;
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1648
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1649 #ifdef FC_FONTFORMAT
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1650 if (FcPatternGetString (pattern, FC_FONTFORMAT, 0, &str) != FcResultMatch)
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1651 return Qnil;
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1652 if (strcmp ((char *) str, "TrueType") == 0)
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1653 return intern ("truetype");
90963
28e2fa3c7ca3 (ftfont_font_format): Typo fix.
Jason Rumney <jasonr@gnu.org>
parents: 90819
diff changeset
1654 if (strcmp ((char *) str, "Type 1") == 0)
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1655 return intern ("type1");
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1656 if (strcmp ((char *) str, "PCF") == 0)
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1657 return intern ("pcf");
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1658 if (strcmp ((char *) str, "BDF") == 0)
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1659 return intern ("bdf");
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1660 #else /* not FC_FONTFORMAT */
90697
444b40002533 (ftfont_driver): Initialize ftfont_driver.type by 0.
Kenichi Handa <handa@m17n.org>
parents: 90680
diff changeset
1661 if (FcPatternGetString (pattern, FC_FILE, 0, &str) != FcResultMatch)
90680
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1662 return Qnil;
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1663 if (strcasestr ((char *) str, ".ttf") == 0)
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1664 return intern ("truetype");
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1665 if (strcasestr ((char *) str, "pfb") == 0)
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1666 return intern ("type1");
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1667 if (strcasestr ((char *) str, "pcf") == 0)
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1668 return intern ("pcf");
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1669 if (strcasestr ((char *) str, "bdf") == 0)
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1670 return intern ("bdf");
254cfd053f9c (ftfont_pattern_entity): Check if FC_FONTFORMAT is
Kenichi Handa <handa@m17n.org>
parents: 90676
diff changeset
1671 #endif /* not FC_FONTFORMAT */
90676
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1672 return intern ("unknown");
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1673 }
c43c3837f597 (ftfont_pattern_entity): Add fontformat in a pattern.
Kenichi Handa <handa@m17n.org>
parents: 90623
diff changeset
1674
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1675
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1676 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1677 syms_of_ftfont ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1678 {
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1679 DEFSYM (Qfreetype, "freetype");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1680 DEFSYM (Qmonospace, "monospace");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1681 DEFSYM (Qsans_serif, "sans-serif");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1682 DEFSYM (Qserif, "serif");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1683 DEFSYM (Qmono, "mono");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1684 DEFSYM (Qsans, "sans");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1685 DEFSYM (Qsans__serif, "sans serif");
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1686
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1687 staticpro (&freetype_font_cache);
90441
d63258b13d84 (Qiso8859_1, Qiso10646_1, Qunicode_bmp): Moved to
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
1688 freetype_font_cache = Fcons (Qt, Qnil);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1689
90464
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1690 staticpro (&ftfont_generic_family_list);
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1691 ftfont_generic_family_list
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1692 = Fcons (Fcons (Qmonospace, Qt),
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1693 Fcons (Fcons (Qsans_serif, Qt),
4702b592db4c (Qmonospace, Qsans_serif, Qserif, Qmono, Qsans)
Kenichi Handa <handa@m17n.org>
parents: 90450
diff changeset
1694 Fcons (Fcons (Qsans, Qt), Qnil)));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1695
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1696 ftfont_driver.type = Qfreetype;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1697 register_font_driver (&ftfont_driver, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1698 }
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
1699
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
1700 /* arch-tag: 7cfa432c-33a6-4988-83d2-a82ed8604aca
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90400
diff changeset
1701 (do not change this comment) */